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Action Routines for Verbs 16-Sep-1984 91:33:9? oe Bliss-32 V4.0-74 Page. 1 
14-Sep-1984 12:48:34 NCP. SRCINCPVRBACT.B32; (1) | 
001 QO XTITLE ‘Action Routines for verbs" 
MODULE NCPVRBACTCIDENT = ‘V04-000' 
ADDRESSING_MODE (EXTERNAL=GENERAL) , 
08 BEGIN ADDRESSING_MODE (NONEXTERWAL=GENERAL)) = 


' 
' 
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'e@ 
!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


'® ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
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FACILITY: Network Control Program (NCP) 
: ABSTRACT: 
7? ; This module contains action routines, other routines and supporting 
8 : data for ow gst te NCP functions at the conclusion of the parsing 
9 ; of a command. Routines here save the parameters into temporary 
0040 : storage and build the messages to ve sent to NML to perform the 
Reel } actual functions. 
G0¢8 : ENVIRONMENT: VAX/VMS Operating System 
0045 AUTHOR: Darrell Duffy , CREATION DATE: 22-October-1979 
0047 i MODIFIED BY: 
0049 1 | 
0050 : v03-027 PRDO112 Paul R. DeStefano 02-Aug-1984 | 
0051 ! Defeat PRDOO99 don't default to area 1 for TELL or 
OO SET EXEC command when area isn't specified. 
0054 v03-026 PRDO105 Paul R. Destefano 20-Jul-1984 | 
B82 ‘ Correct an error in PRDOO&83 which caused the 
056 : NCPSBLD_ENTITY routine to store an extra byte 
0057 ! if the format type is negative. 
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NCP. SRC age 45 


7 
NCPVRBACT.B32; (1). 


is 8 58.1! ' 3 
s 9 §2g 1! v03-025 PRDOO099 aul R. DeStefano 01-May-1984 ‘ 
i: @& 060 1! Modified ACTSSAVPRR to store , default area address : 
i) Oe oe oF 1 when ACTSGL_NO_XAREA_Q flag is set and the : 
— 444 |=. parameter block address is PBKS _VRB_XID. The above - 
;. § 0065 1! is true when a TELL or SET EXEC command is entered : 
: ¢: 4g: : and the exec address specified doesn't specify an e 
it 0066 1: — : 
zo). OF 0067 71! v03-024 PRDOOBS aul R. DeStefano 27-Mar-1984 
3 668 0068 1! Modify ACTSSAVPRM” so that the area number is saved 
- 4 be i : } if the parameter type is PBKSK_ESNO. 
i's 71 0071 1! v03-023 PRD 0083 Paul R. DeStefano 26-Mar-1984 

ci 0072 1! Fixed NCPSBLD ENTITY routine to store only one byte 

: ? th } when entity = area. 

ee 0075 1: v03-022 PRDODGS Paul R. DeStefano 05-Feb-1984 | 

: a Baee : Change ACTSGL _NODADR 9 references to ACTSGL_ADR_Q. 

: 78 0078 1: v03-021 PRDOOSE Paul R. DeStefano 05-Feb-1984 

; 79 0079 1! Fixed storing of NI address parameter in ACTSSAVPRM 

; & 0080 1! routine when address is specified as nn=nn=nn=nn=-nn-nn, 

: + poet : i.e., with the dashes. 

: 8B 0083 1: v03-020 PRDOOS4 Paul R. DeStefano 05-Feb-1984 | 

: a 444 : } Add new module name mie tiaitte 

: 86 0086 1 v03-019 PRDO04G9 Paul R. DeStefano 01-Feb-1984 

; Br 0087 1! Clear ACTSGL_ADR_Q in ACTSSAVPRM routine when 

; es 493 : storing a Area and Node address. 

: 90 0090 1 v03-018 RPGO018 Bob Gros 10-Jun-1983 

: 4 ad : Give more info with Logie. error. 

; 9 0093 1: vO3-017 RPGOO17 Bob G 11-Mar-1983 | 

: Be Bo9¢ : Add saving and bastding “a NIADR type. 

: 96 0096 1: V03-016 RPGO016 Bob Grosso 24-Feb-1983 | 

3 97 0097 1! support ESMO type to stare the LOGGING module name 

: oe sit : n PDBSG_VRB_EVE. 

: 100 0100 1: v03-015 RPGO015 Bob Grosso 09-Nov-1982 

: 101 60101 1! Save new parameter type AADR, an area and node address, 

; 198 Bios : and build a message. 

: 104 0104 1: V03-014 RPGO014 Bob Grosso 24-Sep-1982 

: +4 He : Add act$gl_nodarea so that the Area can be stored. 

: 107 6109 1 v03-013 RPGO013 Bob Grosso 15-Sep-1982 

; 108 0108 i! Add NCPSGL_QUALPRS to note if @ qualifier has been 

; 109 3199 1! arsed to. Geternine if ALL should be sent. 

: 110 110 1! HEX e from roveresng nibbles. 

: 133 ae : Add NCPSEL ono ARMS to note not to check for parameters. 

: 118 b118 1! v03-012 RPGO012 Bob Gros 08-Sep-1982 

: 116 0114 1! Support mew data type, HEX which replaces HXPS for 
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y06~000 12-808 - 1 ope ie NEP SREINEPURBACT 63004 a a) 
use by CALL MASK and CALL VALUE. | 
v03-011 RPGOO11 Bob Grosso 03-Aug-1982 | 
: Correct building of NICE from RNGL pairs. 
v3-010 RPGO010 Bob Grosso 14-Jul-1982 

Add new module ont ity names, X25-TRACE, X29-SERVER, 

CONSOLE, CONFIGURATOR, LOADER, LOOPER. 


v3-009 RPGO009 Bob Grosso 22-Jun-1982 
Store away the entity name if the entity id is MODULE. | 
Store away the first paraneter if entity is module 
so that ncpsholis can figure out which display table 


to use. : 
Add ncp$_acccir. 


vo08 


TMHOO08 
Add ACTSTESTLONG routine. 
Fix bug in storing of subaddress range value. 


v007 TMHO007 Tim Halvorsen 11-Jan-1982 
Map circuit requests to a V2.0 NML into the 
appropriate Line request. 


v006 TMHO006 Tim Halvorsen 02-Dec-1981 
Change text of message displayed in TMHOOO0S. 
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VME WN (OO ODONOUE WN -OOONOu 


Tim Halvorsen 05-Apr-1982 | 
| 
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Add check so that message is not displayed for 
error responses. 


voos TMHOOOS Tim Halvorsen 11-Nov-1981 
Add ESC] parameter type handling. : 
Output “'No information in database"’ message if all 
responses from a show request are nu!!. 


| 
v004 TMHOO004 Tim Halvorsen 02-Sep-1981 | 


Remove Phase I1 compatibility code. 
v003 TMHO003 Tim Halvorsen 10-Jul-1981 


Add parameter cypes: 

SAD = Subaddress range 

OBJ - Object ID : ; ; 
Do not caey string in MOV_STR if the byte count is negative 
(meaning ACTIVE or KNOWN of that parameter). 


v002 TMHOOO2 ; Tim Halvorsen ; 22-Jun-1981 
Treat negative entity type codes in SDB as system-specific. 
Add ENT parameter type, entity type and ID. 


v001 T™HO001 Tim Halvorsen 13-Jun-1981 
Make all external references longword relative. 


Add action routine ACTSCOPY_VALUE 
| 
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for Verbs if 
14 


‘Definitions’ 


OF CONTENTS: 


ROUTINE 

ACTSSAVPRM 

NCP$MOV_QSTR —s:_: NOVALUE, 
NCPSMOV : NOVALUE, 
ACTSCLROONG 

ACTSTESTLONG, 


ACTSVRB_EXIT : NOVALUE, 


Pr 

Oo 

“4 

bad 

< 

P| 

@ 
“one wcr “ 
“owt i) 
“Oro > +] 

o 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 s : NOVALUE, 
1 : NOVALUE, 
1 NCPSMODOLE TYPE, 
. NCPS$BLD_PRAS : NOVALUE; 
91 1! 
92 1 ! INCLUDE FILES: 
gt 
9 1 LIBRARY ‘SYS$LIBRARY:STARLET.L32'; 
96 «1 LIBRARY ‘LIBS$:NCPLIBRY.L32'; 
4 : LIBRARY "LIBS:NMALIBRY.L32'; 
99 1! 
00 1 ! EQUATED SYMBOLS: 
01 1! 
o 1 
O35 1 LITERAL 
oe : NCPSC_MSGSIZ = 1000 ! Message 
06 1 
07 1! 
0208 1 ! OWN STORAGE: 
0209 1! 
o5i9 1 
11 1 GLOBAL 
asié 1 NCPSGL_ENTITY: SIGNED, ' 
0213 1 : 
0214 1 NCPSGL_MODTYP, 
0219 NCPS$GW_PRMTYP, 
0217 1 NCP$GL_QUALPRS, ' 
0218 1 NCP$GL_~NOPARMS , Entity 
0219 1 NCPSGT_MSGBFR: VECTOR CNCPSC_MSGSIZ, BYTE); 


NCP.SRC 


! Action routine to save a parameter 
! Move quoted strin 

!' Move unquoted str ng 

! Action routine to clear a longword 
! Action routine to test a longword 
' Action routine to copy a longword 
' Action routine for EXIT 

! Action routine for most commands 
' Show/List action routine 

! Show/list handler 

! “yy routine for LOOP command 


command 


NML request compatibility 


! Build prolog of message 

' Build entity code 

! Return code for module type 

! Build parameters into message 


buffer size 


Entity type code. If negative then 

system-specific entity (NMASC_SENT_) 

Code for MODULE ENTITY type 

Code for first parameter type, 

used with MODULE entities — 

Qualifier present on parsed Line : 

has no parameters so don't Signal 
! Message buffer itsel 


AX=-11 Bh fea 38 Wh 
NCPVRBACT .B32; 1 
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NCP. SRCINCPVRBACT.B32; 1 (3). 


; EXTERNAL REFERENCES: 


' Status for no parameters saved 
NCP$_REPEAT, 


EXTERNAL LITERAL 

ACTSC_RNGLSTMAX, ' Size of range List storage vector 
NCP$_ACCCIR, ! Access control with loop circuit 
NCP$_ACCLIN, ! Access control with loop Line 
NCPS_INVEVE, ! Invalid event range was specified 
NCP$_INVRSP, ! Invalid management response 
NCP$_LOGIC, There is a bug in NCP. 

' 

' 


' Parameter value has been repeated 


NCP$_V2COMP; ! v2.0 NML parameter conversion error 
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COOOOCOCOOCOCOOCOOCCOCOCSCOOCOCCOOCOOOOCOCOOOCOOCOOOOOO Vr 

kk a kk kd tt 
~ 


BeBe Se Se Oe Se Se Ge Be Be Oe ee Be Oe OSes Be Se Se OH He Oe es Oe Oe Be Oe Oe Oe Se Se SESH Se Se Be ee ee 


3 

3 EXTERNAL 

4 ACTSGA_RNGLST : VECTOR [C(2 * MAX_RNGLST_PAIRS) + 1, WORD], 

4 39 T Range list vector 

4 40 PDB$G_VRB_ALL, ! Parameter biock for ALL code 

4 41 PDB$G_LOO_ACC, ! Access control for loop command 
6 es PDB$G_LOO_PSW, 

4 4 PDB$G_LOO-USR, 

4 44 NCPSGC_FNT_CODE : BBLOCK [4], ! Function code byte 

4 45 NCPS$GL_OPTION : BBLOCK [4], ! Option code byte ‘ 

° 28 NCPSGL_EXELCB: REF BBLOCK; ! Pointer to executor Link control blk 
5 48 

5 49 NCP$SIG_CMDERR, ! Signal a command error 

5 50 NCPSOPERLINK: NOVALUE, ! Open a Link to the Listener 

5 51 ! (and get its version #) — 

5 26 NCPSSENDMSG : NOVALUE, ! Write a message to the listner 

5 5 NCPSREADRSP, ! Read a response from the Listner 
5 54 NCPSOPENSHO : NOVALUE, ! Open show/list output file 

5 $2? NCPSSHOHEAD : NOVALUE, ! Write the etehie 

5 6 NCPSSHOLIS : NOVALUE ! Write the parameters from one msg 
5 257 NCPSWRITESHO : NOVALUE, i Write a line to output file 

6 258 NCPSCLOSESHO : NOVALUE; ! Close the output file 


| 
| 
| 
| 
} 
| 
| 
| 
EXTERNAL ROUTINE 
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yOe~000 ACTSSAVPRM Save a Parameter 14- « 38 Pe ENCE .SRE NCPVRBACT .B32;1 ’ (4). 

> 26 59 1 XSBTTL  ‘ACTSSAVPRM Save a Parameter’ ; 
|: 6 60 1 GLOBAL ROUTINE ACTSSAVPRM (OPT, STRCNT, STRPTR, TKNCNT, TKNPTR, ; 
3 264 61 1 CHR, NUM, PBLKS = | é 
i; 265 ¢ 1 : 

; 266 0265 1 !+4+ ; 

: 267 0264 1 ! FUNCTIONAL DESCRIPTION: : 

; 268 0265 1! ; 

; 269 0266 1! Action routine to store a parameter away for later use. ; 

: 270 0267 1! The parameter PBLK is the address of a control block which controls ‘ 

3 6a 0268 1! the type of porenetes saved and the address. If the parameter ; 

; a 0269 1! already has been saved in this parse, this routine complains by : 

; 6, 8 £9 ! } signalling an error and returns failure. ; 
ls 273 0 ue 1 ! FORMAL PARAMETERS: | ; 
E 76 0273 1 | | ; 

: e777 0274 1! Parse state table : 
's 278 ps7? 1! | 3 

s 6a 0276 1! TKNCNT, TKNPTR Descriptor of the token which may be used if the ‘ 

; sey ose : type specifies a token : 

: 282 0279 1! PBLK Address of the parameter control block 

; 283 0280 1! BYTE (PBKSK_code) code for type of parameter 

; 284 o$e3 1! LONG (ADR) Address of the parameter data 

; 285 0 8¢ 1! LONG (PRM) Value of the parameter for 

: 286 0283 1! the code specified 

; it 0284 1! : 
1; 6288 0285 1! The parameter data has the following form 

: 289 0286 1! BYTE (STS) 0 for not yet saved here 

: 290 0287 1! 1 for data saved here | 

; 291 0288 1! aes Data of the parameter itself 

; soe 0289 1! 

: 29 0290 1 | IMPLICIT INPUTS: | 

: 294 0291 1! 

; 295 244 1! NONE | 

; 2% 0293 1! 

3; evr 0294 1 ! IMPLICIT OUTPUTS: 

; 298 0295 1! 

: 299 94 1! NONE 

: 300 0297 1! 

; 301 0298 1 ! ROUTINE VALUE: 

i; 302 5444 1 ! COMPLETION CODES: 

; 303 0300 1! ; : 

: 304 0301 1! Success or an error signalled and failure 

$ $02 $308 1! 

; 06 O35 1 ! SIDE EFFECTS: 

; 307 0306 1! 

; 508 0305 1! NONE 

; 309 0306 1! 

; 3510 0307 1 !-- 
L 
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BEGIN 


MAP 
PBLK : REF BBLOCK CPBK$C_SIZE] ! Parameter control block 


LOCAL 
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CPTR, ' Character pointer 
PTR ! Pointer to data segment 
OWN 
EVELST ! Last event code seen 
L 
ACTS$GL_ADR_Q, ! Flag for Node address, object number 
ACTSGL_NODAREA ! Node area CF 
CT$GL~SAD_BEGIN, i Subaddress beginning 
ACTS$SGL_SAD_END; ! Subaddress en 


EXTERNAL 
PBK$G_VRB_XID, 
ACTS$GC_NO_XAREA_Q; 


MPwn— 


Param block for exec node ID 
Flag for no exec area specified 
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v04-000 ACTSSAVPRM Save a Parameter aati Oo aide NCP. SRCINCPVRBACT.B32;1 . 
; 339 4 
; re 6 5 PTR = .PBLK CPBKSL_PDB_ADR]; ! Address of param data block 
3; #4 0 $ IF .BBLOCK C.PTR, PDBSB_STS_FLG) ! Is there already one here? 
; 0338 THEN 
3: 344 0339 Pesta. 
; 45 0340 Exclude error check for some codes 
3; 346 0341 4 MOSELECTONEU -PBLK CPBKSB_ TYPECHDES 
; 47 tak: 4 OF 
>; 348 ta 4 ET 
: 49 0344 & PBKS$K eta TO PBKSK_ESEX, PBKSK_ESCIJ: 
; $29 toe 4 PBKSK— ayy! 1; 
3; Be 46 4 OTHEROI Se 
3 $26 0347 4 TES) 
> 0348 3 THEN 
: 354 0349 4 BEGIN : 
; 355 0350 4 NCPSSIG_CMDERR(NCP$ REPEAT, ! Yes, signal an error 
3 56 0351 4 ~TKNCNT, .TKNPTR 
: 357 0338 4 ~STRCNT, * STRPTRS: 
; 358 0353 4 RETURN FAILURE; ! Return a syntax error 
; 359 0354 3 END; 
; 360 0355 § END; 
: 361 0356 
3 408 0357 2 BBLOCK C.PTR, PDB$B_STS_FLG) = 1; ' Set the status for we have one 
3; 36 0358 PTR = BBLOCK C.PTR, PDBST_DATA]; ! Advance the address to data 
> 364 0359 
s 36> 0360 ! 
: 366 0361 ! Dispatch on the type code 
; 367 O06 e ! 
; 368 03635 2 
; 369 0364 CASE .PBLK upexse rveecoee? 
3; 370 0365 FROM PBKS$K_LOW 
: 3571 0366 TO PBKS$K_HYGH 
; Sve 0367 OF 
; 373 0368 2 SET 
> 374 0369 2 ; 
3; 375 0370 CPBK$K_LITB) : ! Literal byte 
; 376 0371 CHSWCHAR (.PBLK CPOKSt. PARAM], 
3; 377 Berg CHSPTR (.PTR 
; 35378 0373 2 
; 379 0374 § ; 
; 380 0375 
oe. }. 0376 CPBKSK_NUMB) : ! Number as a byte 
;: $55 tia CHSWCHAR (.NUM, CHSPTR (.PTR) ) 
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} ACTSS 
85 79 
86 ‘f 
87 1 
88 é 
89 038 
90 0584 
33 $386 
9 S389 
94 0388 
95 0389 
9% 0390 
97 0391 
98 0392 
99 039 
400 0394 
401 0395 
40 0396 
40 0397 
404 0398 
405 0399 
406 0400 
407 0401 
08 040 
409 040 
410 0404 
0405 
040 
0407 
0408 
040 
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CPBKSK_NUMW] : ! 
(. PTR) <0,16,0> = .NUM <0,16,0> 


CPBK$K NUML] : 
PTR = .NU 


CPBKSK LITL] : 
-PTR = -PBLK CPBKS$L_PARAM] 


CPBK$K_TKN] : ' 
IF~.ACTSGL_NO_XAREA ' 
ional AND .PBLK™EQL PBKSG. VRB_XID 


BEGIN 
NCPSMOV_STR(.TKNCNT, .TKNPTR, 
R) 2 = .TKNCNT ¢ f 


(.P eo ’ 
(.PTR) <8,16> = BASCLI'T. Tf H 
ACTSGL -NO_XAREA_Q = 


ELSE 
NCPSMOV_STR (.TKNCNT, 


CPBKSK_TKNQ]) : ; 


AxX-11 Bliss- 
NCP. SRCINCPV 


' Number as a word 


Number as a long word 


! Literal longword 


Token as a string 
If no exec area §s oa tT eeee 
and TELL or SET EXEC 


store phe token moved down 2 bytes, 
‘sears Length increased by 2, 
and store area '1.'’ before the token. 


! Zero the flag. 


~TKNPTR, .PTR) 


Token as a quoted string 


NCPSMOV “aSTR (.TKNCNT, .TKNPTR, .PTR) 


CPBKS$K_STRQ] : ; 
NCPSAOV “QSTR 


‘VECTOR {C.PBLK CPBK$L_PARAM], 
2) ie C.PBLK CPBK$L_PARAM], 


CPBK$K_NADR] : ; 
IF _ .ACT$GL_ADR_Q : 
THEN 


BEGIN 
LOCAL 
NODE AREA; 


ACT$GL_ADR_Q = 0 
(.PTR)~<0, g, 0> =0: i 
NODE_AREA = .NUM <0,16,0> + | 

Tv, ;ACTSG LNODAREA. g “10); / 
(.PTR) <8, 967 0> = .NODE_AREA; 


END 
ELSE ; 
. NCPSMOV_STR (.TKNCNT,  TKNPTR, 


A described string as a quoted str 


Oj, 
1], 


Node address 
Did we save a node address?? 


ero the fla 
ndicate tha 
he address 
and the area 


it is an address 


ns ’ string with no quotes 


e 
PTR 


42 Page 
31 . (7) 


a 
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N > Action Routines for Verbs 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-74 Page 10. 
W-060 ACTSSAVPRM Save a Parameter 19-808- 1382 Oa 2B te NCP. SRCINCPVRBACT .832; ° my 
ig Ot 3 
> 444 4 $ CPBKSK_AADR] : ! Area and Node address to be stored in a word 
: G8 0420 aati | 
; cer Bea) NODE _AREA; | 
: 449 044 ACTSGL_ADR_Q = 0; ' Zero the flag 
; 450 444 NODE_AREA = NUM’ < 6,0> + ' The address 
> 451 445 T.ACTSGL “NODAREA “°10); and the area 
; 43¢ 044 (.PTR) <0,16,0> = .NODE_AREA; | 
8 Hh ms 
: 455 0449 CPBK$K_0BJ): ! Object | 
; 456 0450 IF .ACTSGL_ADR_Q ! Did we save a object number? | 
: 08% 0483 THEN BEGIN 
; 459 O88 ACTSGL_ADR_Q = 0; ! Zero the flag | 
; 460 0454 -PTR) ,0> = 0; ! Indicate an object number, not name 
; ree Ree? ; (.PTR) <8,8,0> = .NUM <0,8,0>; ! Object number | 
: 46 0489 2 E ove a string with no quotes 
: ree: beee § NCPSMOV_STR (.TKNCNT, LTRNPTR, PTR); 
: 466 0460 CPBK$K ns ! Entity type and ID 
: 468 046 (PTR) <0,8> = NMASC -ENT_NOD; | &&& Only nodes handled for now &&& 
: 469 04 3 IF “ACTSGt. ADR_ ! Did we save a node address?? 
Pm RE | 
3 47 0466 4 ACTSGL_ADR Q = 0; ' Zero the flag 
> 47 0467 4 (. PTR+T) <0,8> = 0; i Indicate a node address | 
: i peee ° (.PTR+2) <0, 16> = .NUM <0,16>; ! The node address | 
: 476 0470 3 ELSE ! Move a string with no quotes 
: 477 0471 NCPSMOV_STR (.TKNCNT, .TKNPTR, .PTR+1); 
: 478 0472 2 D; 
| 


i 
eet See Ae ene ae ee ee ee ere ee 


| EPVR ACT 


501 


Se Oe ee Be Oe Ge Oe SH Oe Be Oe Oe Oe SESH Oe Oe BHO Ose Oe Oe oe Oe OH BH He OH es 
© 
- 


iSoseoctgge 0:55:49 pane abies 


te for high zero if odd 


t " 
i Number ‘ bytes in string 


Make a catated to the string 


Make lower nibble valid 
! Insert the nibble in the string 


Action Routines for Verbs 
ACTSSAVPRM Save a Parameter 
473 
the CPBKSK pares ! Hex password 
476 he PIR) <0,8,0> = 
47) (.TKNENT+1 )/ 2; ' Save the byte count 
478 ' Zap las 
0479 ! 
0480 (.PTR + 1 s haath +1) / 2) <0, 
0481 CPTR = CHSPTR CT KNPTR); ! 
04 ¢ 
048 ' 
Bebe ’ Step backward from Last nibble used to beginning 
485 : of string 
bees 3 
0488 4 DECRU BPOS FROM 8 + ( (.TKNCNT=-1) * 4) ! Last nibble 
0489 TO 8 ' First nibble 
0490 BY 4 ' A nibble wide 
0491 dO 
0492 4 BEGIN 
049 4 LOCAL C 
0494 4 CHAR = CHSRCHAR A, (CPTR); |! Obtain the character 
0495 5 IF (.CHAR GEQU * ! Adjust the range of hex 
0496 5 AND CHAR Lau "2 
0497 4 THEN CHAR = .CHAR + 9; ! 
0498 4 (.PTR) <.BPOS, 4, 0> = .CHAR 
0499 4 END 
0500 3 END 
0501 2 ; 


— 


— 


ft 
| NCPVRBACT Action Routines for Verbs 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-742 Page 12 NCI 
¥be-000 ACTSSAVPRM Save a Parameter 12288-1382 9b: 28i 42 ENCE. SRE NCPVRBACT.B32;1 “ coy vO: 
; 510 0 § 
5 11 CPBKSK_HEX] : ' Hex number 

; \3 4 BEGIN 
: 8a 20 LOCA RST _NIBBLE | 
: 515 268 @ 
; 516 508 (.PTR) <0,8,0> = 

: 517 509 (.TKNENT#1_)/ 2; ' Save the byte count 

; 518 510 (.PTR + 1)<0, 8, 0> = 0; ! Zap first byte for high zero if odd 

5 319 511 ! Number of bytes in string 

3 i) 0318 CPTR = CH$PTR (.TKNPTR); ! Make a pointer to the string 

: 14 ' 

:~ = : 0515 ! Step forward from first nibble used to end 

; 524 0516 : of string 

3 tees pele ! 

; 526 518 

; Ser 0519 FIRST_NIBBLE = FALSE; : Toggle which nibble of the byte 

; 528 0520 ; ! will be filled 

; 26? 0521 INCRU BPOS FROM 8 ' First nibble 

; 5350 05 ¢ 4 TO 8 + ( (.TKNCNT=1) * 4) ' Last nibble 

s $31 052 H Y 4 ! 

; oa6 0524 dO 

, Ss 0525 4 BEG! 

s 536 0526 4 LOCAL CHAR; 

; 535 0527 4 CHAR = CHSRCHAR_A (CPTR); ! Obtain the character 

: 536 0528 5 IF (.CHAR GEQU *A' ! Adjust the range of hex 

; 537 0509 5 AND (.CHAR LEQU 'F") ; 

s 538 0530 4 THEN CHAR = .CHAR + 9; ! Make Lower nibble valid 

; 539 0531 4 IF .FIRST_NIBBLE 

: 540 b2e6 4 ; 

: ao) B2 ? ? me heed <.BPOS -4, 4, 0> = .CHAR ! Store second char in first nibble 

5 208 et 4 (.PTR) <.BPOS +4,4,0> = .CHAR; ! Store the first char in the second nibble 

3 65446 0536 4 FIRST_NIBBLE = NOT .FIRST_NIBBLE; ! Toggle 

: 545 0537 4 END 

: 546 0538 3 END 

3; 547 0539 2 5 


A nibble wide 
| 
| 
| 


LS Ss sss 
| 


chuanemnenenininitibepicidaitagimenitilenvileleadi : 
| 
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YO6~000 ACTSSAVPRM Save a Parameter 1a-Sep- 3B 9b: 2B 4a NCP.SRC NEPVRBALT 63064 79 10), 

40 
ae , | 
t Event building types | 
44 
45 CPBK$K_ESET] : ! Setup to collect an event 
546 BEGIN F 
54 (.PTR) <16, 8, 0> = 8; ! The type mask counter 

(.PTR#11) <0, 8, O> = 1; ! The source entity code (none) 

BBLOCK C.PTR=1, PDB$B_STS_FLG) = 0; ! Inhibit repeated store checking 


END; 

CPBK$K_ECLS] : ! The event class code 
| 
| 
| 


0 
8 
i 
a5 
5 
H 
Be CPBKSK Fas*? : ! A simple type 
: be EVELST_ = .NUM; ! Save the event type for a range 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 


PAA AAAAR AAAI 


MEUN —O OONAUES WN “OOD ONOVS WR" OOONOUES WN OW” 


48 
49 
0 
1 
3§ 
54 (.PTR) <0, 16, 0> = .NUM; 
55 END; 
56 
57 
58 
59 
60 


Fh <.NUM, 1, 0> = 1; ! Set the bit 


CPBKS$K Fane : ! Set a range of event type bits 
IF cove st GTRU .NUM ! Check the range for increasing 
NCPS$SIG_CMDERR(NCP$_INVEVE, ! Yes, signal an error 
TK » »TKNPTR 
“STRCNT, .STRPTRS; 
; INCRA IDX FROM .EVELST TO .NUM ! Scan the bits 
; (.PTR#3) <. IDX, 1, 0> = 1; ! And set them 
3 
2 


EVELST = .NUM; 
END; 


WOO OOdNN NNN SNS 


Set for the next range 


PUD PUDV IV DV DV IVLPV SVL PVSVPULVSIVSIU PUSS SVS VSV SVS IS 
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YO6~0B0 ACTSSAVPRM Save a Parameter 4-Sep ety 9 ‘2B ke NCP SREINGPURBACT 6 B32;1 
: 587 0577 
: 8 8 CPBKSK_EWLD] : ' Event wild card 
; 589 7 0; ! Sets the parameter as active 
; 590 580 ' Code is stored by mask operation 
3 a3) 28) ! we don't do anything here 
3; 39 be8$ CPBKSK_ESNO) : ! Event source node 
4 94 0584 BEGIN 
; $95 0585 EXTERNA 
; 596 0986 ACTSGL_ADR_Q; 
; rade 058 
5 238 bege _. CHSRCHAR (.PTR+11) NEQ 255 ! If a parameter saved here 
: one Beas NCPS$SIG_ CADERR(NCPS Repeat. ! Yes, signal an error 
; 60 0992 *STRENT. STRPTRS: 
3; 6 059 
; ¢ 0594 IF .ACTSGL_ADR_Q ! Node address saved? 
; 605 0595 THEN 
: 606 0596 4 BEGIN 
: 607 0597 4 A 
: 608 0598 4 none AREA; 
: 609 0599 4 (.PTR+123 <0,8,0> = 0; ! Indicate that it is an address 
: 610 0600 4 NODE_AREA = .NUM 14,0> + | Save the address 
; 611 0601 4 T. he mY Te = 10); 
3; 6l2 4) 4 te Prete) 16,0> = ' and the area 
; 613 0603 4 REA: | 
> 614 0604 4 ACTSGLCADR = 0; ! Clear the address flag 
3 615 0605 4 END 
: 616 0606 3 If its a node name, save it 
; 617 0607 ; NCPSMOV_STR (.TKNCNT, LTENPTR, pTRI12) 
: 618 0608 CHSWCHAR (07 .PTR+11); ‘*tadicate its a node 
; 619 0609 2 END; 
: 620 0610 2 
s @e) 0611 § CPBKSK_ESLI] : ' Save a source line id 
5 622 pele 
3 os7 pels ; IF CHSRCHAR (.PTR+11) NEQ 255 ! If a parameter saved here 
; 625 0615 3 NCP$SIG_CMDERR(NCP$_REPEAT, ! Yes, signal an error 
; 626 0616 1K 7° NPTR 
; 627 0617 *STRCNT, .STRPTR); 
> 628 0618 NCPSMOV_STR CTRNCNT,” ~TKNPTR, .PTR#12); eam 
: 629 0619 CHSWCHAR (1, *PTR#11 §;° ' Indicate its a line id 
3; 630 8830 § END; 
: 631 1 : ; 
3 638 boee CPBKS$K_ESCI) : ' Save a source circuit id 
3 ot be : IF CHSRCHAR (.PTR+11) NEQ 255 ! If a parameter saved here 
: 636 be 6 NCPSSIG_CMDERR(NCP$_REPEAT, ! Yes, signal an error 
; 637 0627 1K tes PTR 
; 638 Be 8 -STRCNT RPTR); 
: 639 9 NCPSMOV_STR (.TKNCNT, > TKNPTR. .PTR#12); 
> 640 0630 CHSWCHAR (3, .PTR#115 — ! Indicate its a circuit id 
3; 6641 be 1 END; 
3 ong 6 § 
; 664 06 CPBKSK_ESEX) : ! Save the executor as source 


NCPVRBACT Action Routines for Verbs bse -Sep-1 2:55:49 AX-11 Bliss-32 V4.0-74 Pa 15 
00-000 ACTSSAVPRM Save a Parameter | 300-138 9}: 28; 32 NCP.SRCIN SS yagatt o5o04 94D 


> 644 4 BEGIN 

: 94? 5 = Maman (.PTR#11) NEQ 255 ! If a parameter saved here 

3 geo NCP$SIG_ aos pak REPEAT, ! Yes, signal an error 

; 648 8 ° PTR 

: 649 9 “STRCNT. .STRPTRS; 

; 650 0640 CHSFILL (0, 4, RTRs ! Indicate node source type and 
>; 651 0641 i store zero node address 

: 652 0642 2 END; 


dD 2 
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v04-000 ACTSSAVPRM Save a Parameter 14-Sep-1984 12:48:34 CNCP.SRCINCPVRBACT.B32;1 (12) 
> 654 0643 
3 695 pete 
; 656 645 : Privilege list types 
: 657 peee : 
; 658 064 
; 659 0648 CPBKSK pate ! Clear the privilege mask 
; 660 0649 
; 661 0650 CHSF ILL (0, LEN _PRV_MSK+1, »PTR#1); 
; 66 0651 (.PTR) <0, 8, OS = 8 ! The count for the image field 
; 66 B028 END 
> 664 065 ; 
; 665 sth 
> 666 655 CPBKS$K_PRVL] : ' Set a bit in the mask 
; 667 0656 BEGIN 
; 668 0657 H EXTERNAL ROUTINE 
; 669 0658 PRVSSETPRIV ! Set privilege bit in mask 
; 670 0659 3 
: 671 0660 IF NOT 
; 672 0661 PRVSSETPRIV ! Set privilege bit according 
; 673 04662 3 ( ' to the token string 
> 674 066 TKNCNT, ' Address of the token descriptor 
: 675 06 .PTR+1 ! Address of the mask (quadword) 
; 676 0665 
: 677 0666 THEN 
; 678 0667 RETURN FAILURE ! Report syntax error 
3; 679 0668 D 
; 680 0669 2 : 


srreameleaselienestiepnspstoenie SRuCGhcle sina ase gang eonlonbaie telnet mee saiialae as cocei can oe 


IF CHS$RCHAR (.PTR+11) NEQ 255 ! If a parameter saved here 
NCP$SIG aCe an NCP ne 18 ! Yes, signal an error 
:STRCNT, *STRPTRS ; 
ECTONE .PBLK CPBKSL_PARAM] OF 
CNCPS$C _ -MODACC): 
NCPSROV. STR (.MODACC COJ, MODACC C1), .PTR+12); 
tncesc én Ent _mopPRO): 


SEL 
SET 
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v04-000 ACTSSAVPRM Save a Parameter 14-Sep-1984 12:48:34 NCP. SRCINCPVRBACT.832;1 (13) 
: 68 0670 
; 68 ber) ' 
> 684 ore : Subaddress range 
> 4685 067 ' 
: 686 pore 
3; 687 675 CPBK$K_SAD]): 
; one $678 - PTR) <0,16,0> = .ACTSGL_SAD a ty 
; 690 0678 (PTR) <16,16,0> = .ACTSGC_SAD_E 
; «4691 0679 END; 
; 69 0680 
: 69 0681 ‘ 
3 06 : Range List 
: 695 068 ! 
; 696 0684 
; 697 0685 CPBK$K_RNGLJ: 
; 698 0686 N opy the channel List vector 
i bees 5,0 Tap <0 16,0> = .ACTSGA_ RNGLST’ (635 ! Count of range elements | 
: o 6 4 | 
; 701 0689 3 INCR IDX FROM 1 TO .ACTSGA_RNGLST [0] DO | 
: 70 0690 4 BEGIN 
s 70 0691 4 (.PTR) <0 = -ACTSGA_ RNGLST C.IDXI; 
> 704 0692 4 ACTSGA ANGLSt t. 1Dk] = 0;7 
: 705 0693 4 PTR = [PTR + 2; 
: 706 0694 3 END; 
3; 707 0695 3 ACTSGA_RNGLST C0] = 0; 
; 708 0696 2 END; 
3; 709 0697 2 
s 71 0698 2 
Ee ak 0699 4 CPBKS$K_AREA]: ' Node area 
; 0700 BEGIN Phys 
; 0701 3 (.PTR) <0,8,0> = 0; ! Indicate that it is an area 
; 0702 3 (.PTR) <8,8,0> = .NUM <0,8,0>; ! the area 
3 § END; 
; ¢ CPBKS$K_MODPRM] : ' Save a Moduie name 
; BEGIN 
3 ; MODACC = UPLIT (ZASCIC ‘X25-ACCESS') : VECTOR C,BYTEJ 
; 3 MODPRO = UPLIT (ZASCIC 'X25-PROTOCOL') : VECTOR C.BYTE), 
; 3 MODSER = UPLIT (ZASCIC ‘X25-SERVER') : VECTOR BYTE 
+4 MOD29S = UPLIT (ZASCIC ‘X29-SERVER') : VECTOR C,BYTEJ; 
: : 
: 4 
; ; 
. 4 


RONONONONONIN 2 2 SS SS BQO OOO 
ANFWN@OODNAUEWN—OGONAUE 


CSOOOCOCOCOOCOCOCOOSCOOCOOCOOOOOoooO 
SN NSS 
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v04-000 ACTSSAVPRM Save a Parameter ata ts ri Poet Sa ree a Matt fhe eee 9°13) vor 
; 739 7 7 4 NCPSMOV_STR (.MODPRO [OJ], MODPRO [1], .PTR+12); ; 
; 740 728 ; ND; : 
: 741 07 9 3 CNCP$C_ENT_MODSER): : 
; 74 0731 4 NCPSMOV_STR (.MODSER CO], MODSER [1], .PTR+12); ; 
: 744 07 ¢ ; ND; ; 
: 745 07 CNCP$C_ENT_MOD29S): ; 
: 746 0734 4 IN : 
; 747 0735 4 NCPSMOV_STR (.MOD29S [OJ, MOD29S [1], .PTR+12); ‘ 
: 748 0736 ; END; : 
: 749 0737 COTHERWISE): 
s 750 0738 4 f 
3 Te 0739 4 SIGNAL_STOP (NCP$_LOGIC, 1, ASCIC (* Error while saving parameter')); 
: ree 0740 END; 
: 0741 TES; 
: 754 16k 
s fo 0743 3 CHSWCHAR (4, .PTR#11); ! Indicate its a Module name 
s 0744 END; 
: 757 0745 
; 758 0746 CPBKS$K_NIADR]: 
; 759 0747 BEGIN 
: 760 0748 3 CAL 
3: 761 0749 3 FIRST_NIBBLE, 
3; 762 0750 3 ° 
: 765 0751 3 LAST_BPOS; 
3; 764 O726 3 
s 76s 0753 3 (.PTR) <0,8 = 6; ! NI addresses are 12 characters 
> 766 0754 3 CPTR = cHsPER (.TKNPTR); i Make a pointer to the string 
: 767 0755 3 BPOS = i Bit position of first nibble. 
: 768 0756 3 LAST _BPOs = 8 + ( (.TKNCNT=-1) * 4); ! Bit position of Last nibble 
3; #69 0757 3 i “(not adjusted for dashes) 
; 770 0758 3! 
: 771 0759 3! Step forward from first nibble used to end 
; 77 0760 3 : of string 
; 77 0761 ! 
3 774 the 3 
s 9 0765 3 FIRST _NIBBLE = FALSE; : yy which nivets of the 
s 7% 0764 3 e will be filled 
; 777 0765 3 WHILE .BPOS LEQ .LAST_BPOS 
: 778 0766 3 DO 
3; 779 0767 & 
; 780 L768 4 LOCAL CHA : 
> 781 0769 4 CHAR = CHSRCHAR A .(CPTR); | Obtain the character 
; 78 0770 5 IF (.CHAR EQLU ) ' Remove dashes 
; 78 0771 4 THEN 
; 784 14k: 5 BEGIN 
; 785 0775 5 LAST_BPOS = .LAST_BPOS - 4; ! Adjust last nibble position 
; 786 0774 5§ ' to exclude dash. 
; Ath pr ? CHAR = CHSRCHAR_A (CPTR); ! Obtain another character 
: 789 O779 5 IF (. 5 CHAR GEQu ‘A’ ) ' Adjust the range of hex 
; 790 0778 5 (. CHAR Lay "F*) , 
3; 791 0779 4 THEN ACHAR = .CHAR + 9; ' Make lower nibble valid 
; 79 780 4 IF .FIRST_NIBBLE 
; Ay 4 THEN : ; 
: 794 7 ¢ 4 pean <.BPOS -4, 4, 0> = .CHAR ! Store second char in first nibble 
; 795 0783 4 ELSE 


; 


00000 EVELST: .BLKB 4 
-PSECT $GLOBAL$,NOEXE,2 
00000 en 
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yO4~000 ACTSSAVPRM Save a Parameter 12=808-198e 2:48:34 NCP, SREINCPVRBACT: B32;1 ° (13) vO: 
= 0784 4 (.PTR) <.BPOS +4,4,0> = .CHAR; ! ot. the first char in the second nibble . 
; 738 0785 FIRST_NIBBLE = NOT .FIRST_NIBBLE;” | oggle : 
; 798 8 $ 4 BPOS = .BPOS +4; ! po nt to next nibble. : 
; 799 7 4 END : 
; 800 o7ee END; ; 
; 801 0789 ; 
; aoe 0790 COUTRANEE . 3 
; 80 0791 K_END ; 
; 804 434 PBKSK =TRIBL ' These parameter types are for read only parameters which need spec : 
; 805 079 PBKSK— pet Tra. ! Formatting in NCPSHOLIS, but which don't need to be saved by ACTS. : 
; 806 0794 PBKSK_DAYTIM ; 
; 807 9795 PBKSK “Pttust : | : 
; 808 796 ! For any error in coding block ; 
; 809 0797 RETURN FAILURE; ! Report a syntax error ; 
; 810 0798 $ 
; 811 0799 TES; : 
; sig 0800 ; 
; 8 0801 RETURN SUCCESS : 
: «814 pele : 
> 815 0803 1 END; ‘ 
| ; 
-TITLE NCPVRBACT Action Routines for Verbs : 
-IDENT \v04-000\ : 
-PSECT $PLITS,NOWRT ,NOEXE,2 | ; 
OA Q0000 P.AAA: .ASCII <10>\X25-ACCESS\<0> 3 : 
Be 4469 P.AAB: ASCII <12>\X25-PROTOCOL\<0><0><0> : : 
OA QOO1C P.AAC: .ASCII <10>\X25-SERVER\<0> ; ’ 
OA 00028 P.AAD: .ASCII <10>\X29-SERVER\<0> : s : 
a8 oeozs eAAE: .ASCII <29>\ Error while saving parameter\ : : 


| 
| 
| 
-PSECT SOWNS,NOEXE,2 | 
| 


-BLKB 4 
00004 NCPSGL_MODTYP:: | 

-BLKB 4 
00008 NCPS$GW_PRMTYP: : 

-BLK 4 
OOO0C NCPS$GL -QUALPRS:: | 
00010 NCPSGL “CT er | 
00014 NCPSGT_MSGBFR: : 

LK 1000 

OOSFC ACTSGL ADR LE ‘. 
00400 ACTS$GL _NODAREA: : 

~BLKB 4 
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v04-000 ACTSSAVPRM Save a Parameter 14- ety 7 9:23 28:3 NCP.SRCINCPVRBACT .B32; a9¢ 18) 
00404 ACTSGL_SAD_BEGIN:: 
00408 ACTS$GL_SAD_END:: 
-BCKB 4 | 
MODACC= P.AAA 
MODPRO= P.AAB 
MODSER= P. AAC 
MOD29S= P.AAD 
EXTRN ACTS$C_RNGLSTM 
EXTRN NCPS$_ACCCIR, NCP P$_ACCLIN 
SEXTRN NCPSTINVEVE, NCP$~INVRSP 
-EXTRN NCPS$_LOGI $_ROPA 


-PSECT S$CODES,NOWRT,2 


| 

OFFC 00000 ~ENTRY Fey alta Save R2,R3,R4,R5,R6,R7,.RB,R9,- ; 0260 | 

5B 000000006 98F D0 00002 MOVL ANCPS REPEAT, R11 : 

5A 000000006 00 9€ 00009 MOVAB Mists Ce CHDERR, R10 : 

59 00000000' 00 9€ 00010 MOVAB MODACC+T, F 

58 00000000' 00 9E 00017 MOVAB ACTSGL_ADR_ y? RB F | 

57 20 ac dO O001E MOVL PBLK, R7 : 0335 

56 01 A? DO 0002 MOVL 1(R75, PT : | 

23 66 9 00026 BLBC (PTR). 2 : 0337) 

OE 67 91 00029 CMPB =s« (R77), #14 : 0346 | 

05 Ff b008¢ BLSSU.-'1$ ; 

15 67 91 O002E CMPB ss «(R7?), #21 F | 

19 1B 990 1 BLEQU 2$ ; | 

1A 67 91 00033 1$: CMPB = (R77), #26 : 

14 13 000 BEQL 2$ ; | 

0c 67 91 90 CMPB =s-s«(R7?), «#12 > 0345. 
F 13 B BEQL ; 

7E 08 AC 7D 00030 MOVO  STRCNT, -(SP) : 0352 | 

7E 10 AC 7D 00041 MOV ==TKNCNT, -(SP) > 0351 | 

5B DD 0045 PUSHL 1 : 0350 | 
6A 05 FB 0004 CALLS as, NCPS$SIG_CMDERR $ 

4D 11 OOO4A BRB > 0353 | 

Bs 01 90 0004C 28: MOVB (PIR)* : 0357 

32 01 67 BF O0004F CASEB (nt) , #34 : 0377 | 

0055 17F 004F 0049 0095 3$ WORD $5-38,- - ; 

D4 078 0061 OOAF 00 : i $,- ; | 
O28E 0058 0582 969 906 $-3$,- ; 
018 017F 1 2 0 $8 -3$,- ; 
0219 01D0 O3AE 19 000 135-38, - ; 
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NCPVRBACT Action Routines for Verbs 16-Sep-1984 01:55:49 Ax-11 Bliss-32 V4.0-74 Page 
v04-000 ACTSSAVPRM Save a Parameter 107880- 1984 i288 NCP -SRCINCPVRBACTB3271 : ag 
51 c a 3¢ E MOVZWL NUM, R1 : 
0 i ¢ F ADDL2. Ri, NODE_AREA : 
66 0 80 0008 movw BE_AREA, (PTR) i 0446 | 
Pa } 
05 68 £9 OOOFA 148 BLBC  ACTS$GL_ADR_Q, 15$ : 0450 
& ps OOF CLRL ACTSGL-ADR7G + 045 
0224 31 OOOFF BRW 61$ + 0454 
6 dD 0192 15$ PUSHL PTR + 0458 
14 11 001 BRB 19$ : 
66 94 00106 16$ CLRB = (PTR) + 046 
0c 68 £9 00108 BLBC §ACTS$GL_ADR_Q, 18$ + 046 
68 pA 0108 CLRL  ACT$GL-ADR70 : 046 
01 Ab 94 0010D CLRB =: 1(PTR) + 046 
02 A6 1¢ AC BO 0011 MOVW NUM, 2(PTR) + 0468 
54 1100115 17$: BRB it 3 + 0463 
01 A6 9F 00117 18$: | PUSHAB 1(PTR) + 0471 
7E 10 AC 7D 0011A 19$: | MOVQ  TKNCNT, =-(SP) : 
00000000v 00 03 FB 00118 CALLS #3, NCPSMOV_STR : 
44 11 0012 08: BRB : 0377 
50 10 AC 01 €1 00127 21$:  ADDL3 #1, TKNCNT, RO : 0477 
50 02 C6 0012C DIVL2 #2, RO ; 
56 50 90 0012F MOVE RO, (PTR) : 
01 A046 94 00132 CLRB  —s- 1(RO) CPTRI + 0480 
54 14 AC DO 00136 MOVL §TKNPTR, CPTR > 0481 
50 10 AC DO O013A MOVL —« TKNCNT, RO : 0488 
50 04 Ca 0013E MULL2 4&4, : 
50 08 CO 00741 ADDL2 #8. BPOS : 
1D 11 00144 BRB ; 
51 84 9A 00146 22$: MOVZBL (CPTR)+, CHAR + 0494 
00000041 F 51 D1 00149 CMPL CHAR, #65 > 0495 
0c 1F 00150 BLSSU 23 ; 
00000046 = 8F 51 01 00152 CMPL CHAR, #70 + 0496 
03 1A 00159 BGTRU ; 
51 09 CO 00158 ADDL2 #9, CHAR + 0497 
66 04 50 51 FO 00156 23$: INSV. CHAR, BPOS, #4, (PTR) : 0498 
50 04 C2 00163 24$:  SUBL2 #4, BPOS F 
08 50 D1 00166 CMPL POS, #8 : 
DB 1E 00169 BGEQU $ ; 
79 11 00168 258: BRB $ + 0488 
50 10 ac 01 C1 0016D 26$:  ADDL3 #1, TKNCNT, RO : 0509 
51 50 02 (7 O172 DIVL 2; R0, RI : 
bb 51 9B 0017 MOVZBW Ri, (PT : 
54 14 Ac DO 00179 OVL  TKNPTR, CPTR > 0512 
53 D4 90170 CLRL FIRST NIBBLE ; 0519 
50 10 AC dO 0017F MOVL. -TKNCNT, RO : 0522 
50 04 C4 00183 MULL2 #4, RO ; 
50 4 CO 00186 ADDL2 #4. RO : 
55 # DO ot 9 MOVL #8. BPOS > 0521 
11 0018¢ BRB 31§ ; 
51 4 9A 001 F 27$:  MOVZBL (CPTR)+, CHAR : 0527 | 
00000041 &F 1 01 O19 CMPL CHAR, #65 : 0528 
Oc 1F 00198 BLSSU : | 
00000046 BF 1 01 0019A CMPL CHAR, #70 > 0529 | 
341A Oia BGTR 4 F 
51 CO 001A3 ADDL2 #9, CHAR > 0530 
0 9 O1A6 28%: BLBC FIRST NIBBLE, 298 > 0531 | 
| 
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NCPVRBACT Action Routines for Verbs 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-742 Page 23. 
yO0~000 ACTSSAVPRM Save a Parameter 1 =3007 1382 Mb aide ENCP.SRE NCPVRBACT.B32;1 . a 
5 04 AS SE DOIAE 208: ROVAB CRS), Ro 0535, 7 
be 04 33 31 F 183 $3: NSV CHAR, R2, #4, (PTR) : 31 
« 3 p2 6018 MCOML FIRST_NIBBLE, FIRST_NIBBLE + 0536) 31 
38 04 CO 00188 ADDL2 #4, BPOS + 0521 37 
0 5 01 O1BE 31$:  CMPL gPOs, RO : 31 
£8 1B gic BLEGU 27$ : 31 
¢ 11 C3 RB 41$ : 31 
02 Ab 08 90 001C5 32s: OVB #8, 2(PTR) + 0547) 31 
0B A6 1 BE 001¢9 MNEGB #1, 11(PTR) > 0548 | : 1 
FF A6 94 001CD CLRB -1(PTR) ; 0549 3 1 
4F 11 0010 BRB 41 : 0377 31 
66 1C AC BO 001D2 33s MOVW NUM, (PTR) + 0554 31 
49 11 001D BRB 41$ : 0377 :1 
00000000" 00 1¢ AC DO 001D8 34$: §§ MOVL NUM, EVELST : 0559 31 
3B 03 Ab 1€ AC £2 001E0 BBSS NUM, 3(PTR), 41$ : 0560 31 
39 71 OO1E6 35$: BRB + 0377 : 1 
1¢ AC 00000000" 00 b1 001E8 36$:  CMPL EVELST, NUM + 0565 31 
11 1B 001FO BLEQU 37$ : 31 
7E 08 AC 7D 001F2 MOVQ STRCNT, =(SP) + 0569 1 
7E 10 AC 7D 001F6 MOVQ TKNCNT, =-(SP) ; 0568 3 1 
00000008G 8F DD OO1FA PUSHL #NCP$_INVEVE + 0567 31 
6A 05 FB 00200 CALLS #5 NUP$SIG_CMDERR : 3 1 
50 00000000' 00 pO 00203 378 MOVL EVELST, IDX : 0573 31 
07 11 O020A BRB : 31 
00 03 Ab 50 €2 0020C¢ 388: BBSS IDX, 3(PTR), 39% : : 1 
50 06 00211 39$: INCL IDX : 31 
1c =A 50 D1 00213 40$:  CMPL DX, NUM : 31 
F3 1B 00217 BLEGU ; : 1 
00000000" 00 1¢ AC DO 00219 MOVL NUM, EVELST : 0575 31 
6F 11 00 21 41$: BRB : 0377 :1 
FF OF 0B Ab 91 00 342$:  CMPB 11(PTR), #255 : 0588 31 
0D 13 00 38 BEQL 43$ : : 1 
7E 08 AC 7D OO22A MOVO = STRCNT, -(SP) : 0592 31 
7E 10 AC 70 00 ee MOVO  TKNCNT. (SP) : 0591 31 
5B DD 00 PUSHL ; 0590 s 1 
6A 05 Fe 00234 CALLS #5, NCPS$SIG_CMDFRR 5 3 1 
1B 000000006 00 £9 00237 43$:  BLBC ACTSGL_ADR_C, 44$ + 0594 +1 
0C Ab 94 002 E CLRB =: 12 (PTR : 0599 51 
50 04 As OA 78 00 41 SHL #10, ACTSGL_NODAREA, RO > 0601 31 
51 1C AC 3C 00246 MOVZWL NUM, : ez | 
50 51 CO Bp GA ADDL2 R1, NODE AREA 3 3) 
OD A6 50 B80 0024D MOV NODE AREA, 13(PTR) ; 0603 | 3 1 
000000006 00 D4 9 21 CLRL ACTSGL_ADR_O > 0604 31 
— 11 7 BRB 3: 0594 3 1 
0c A6 9F 00 39 44$:  PUSHAB 12(PTR) : 0607 71 
7E 10 ac 7D 0025¢ MOVQ  =TKNCNT, -(SP) ; 31 
00000000v 00 03 FB 00260 CALLS #3, NCPSMOV_STR : | = 
0B Ab 94 00267 45$: CLRB ss: 11 (PTR) : 0608 :1 
73° 11 OO26A QRe 4$ ; 0377 3 1 
FF OF 0B Ad 91°00 6¢ 46$:  CMPB  11(PTR), #255 > 0613 31 
0D 13 00271 BEQL «6_«&7$S ; :1 
7E 08 ac 7D f3 MOVO  STRCNT, -(SP) > 0617 31 
7E 10 AC 7D 0027 MOV =TKNCNT. -(SP) : 0616 34 
38 DD 00278 PUSHL R11 > 0615 : 1 
6A FB 00270 CALLS #3 NCP$SIG_CMDERR : 21 
0c Ad 9F 00280 47$:  PUSHAB 12(PTR) : 0618 24 
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NCPVRBACT Action Routines for Verbs ibes§ 1984 01:55:49 AX-11 Bliss-32 V4.0-74 Pp 4 | NCF 
v04-000 ACTSSAVPRM Save a Parameter 1278651 98e Mb ieai ge NCP. SRCINCPVRBACT B32; 29° 43) vo4 
? 10 AC 7D MOV —«*TKNCNT, =(SP) , 21 
00000000v 66 os EB : CALLS #3, NCPSMOV_STR : 3] 
0B A6 i 9 MOVE #1. 11(PTR) : 0619 31 
69 11 48$: BRB 57§ : 0377 31 
FF OF 0B ag 3} 38 49$: cee {igPTR). #255 ; 0624 : 
7E 08 AC 7D 00298 MOVG STRCNT, =(SP) + 0628 31 
7E 10 AC 7D 0029F MOVQ =TKNCNT, =(SP) : 0627 31 
38 DD a3 PUSHL R11 + 0626 : 1 
6A 05 FB OO2A CALLS #5, NCPSSIG_CMDERR : 31 
OC Ad 9F 002AB 50S:  PUSHAB 12(PTR) + 0629 31 
ze 10 ac 7D 0 AB MOV. = TKNCNT, =(SP) : 71 
00000000v 0 FB OOOAF CALLS a3, NCPSMOV_STR : :1 
0B A6 90 00286 MOVE #3. 11(PTR) + 0630 31 
1 11 OO2BA BRB 62$ + 0377 71 
FF OF 0B A6 91 002BC 51$: CMPB  11(PTR), #255 + 0635 3 1 
0D 13 002C1 BEQL  52$ : 31 
7E 08 AC 7D 002C¢3 MOVG STRCNT, =(SP) + 0639 : 1 
7E 10 AC 7D 002C7 MOV TKNCNT. =(SP) + 0638 3:1 
5B DD 002CB PUSHL R11 + 0637 31 
6A 05 FB 002CD CALLS #5, NCPSSIG_CMDERR : 31 
0B Ad D4 00200 52$: CLRL  11¢PTR) + 0640 : 1 
58 11 00203 BRB 62$ : 0377 31 
00 6E ss 00 2c 00 D5 53$: MOVCS #0, (SP), #0, #9, 1(PTR) : 0650 ; 
bt 08 90 0020C MOVB #8, (PTR) > 0651 31 
4C 11 OO2DF 54$ BRB 62$ ; 31 
01 Ad 9F 00261 55$ PUSHAB 1(PTR) + 0664 31 
10 AC 9F O02E4 PUSHAB TKNCNT + 0662 31 
000000006 00 02 FB 002E7 CALLS #2, PRVSSETPRIV : 31 
3¢ 50 8 OO2EE BLBS RO, 62$ : 31 
0111 31 002F1 BRW 79 > 0667 31 
66 08 AS BO 002F4 56$:  MOVW  ACTSGL_SAD_BEGIN, (PTR) : 0677 31 
02 A6 0c a8 B0 00 F8 MOVW § ACTSGLISAD-END, 2(PTR) : 0678 31 
2—E 11 OO2FD 57$: BRB 62$ : 0377 24 
52 000000006 00 3¢ Oot 58$:  MOVZWL ACTSGA_RNGLST, R2 : 0687 31 
86 22 BO 00306 MOVW  R2, (PTR)+ : 31 
50 D4 00309 CLRL —IDX > 0689 31 
. OD 11 00308 BRB 60$ : 3 1 
51 0600000060040 3& 0030D 59$ MOVAW ACTS$GA_RNGLSTCIDX], R1 : 0691 : 1 
86 61 BO 00315 MOVW (R1), CPTR)+ : 31 
9) B4 00318 CLRW (R1) 3; 0692 s 1 
EF 50 F3 OO31A 60S AOBLEQ R2, IDX, 59$ : 0689 31 
000000006 6 BA IE CLRW ACTSGA_RNGLST : 0695 31 
1 BRB 62$ : 0377 31 
66 94 6 61$: CLRB (PTR) : 0701 71 
01 Ab 1C at 90 MOVB NUM, 1(PTR) : 970¢ 31 
78 «11 D 63s: BRB 71$ : 037 
FF OF 0B Ab 91 F 63$: CMPB  11(PTR), #255 : 0713 
0D 13 BEQL 64$ : 
7E 08 AC 70 MOV STRCNT, (SP) : 0717 
7E 10 ac 7D A MOVO  TKNCNT. -(SP) : 0716 
; DD PUSHL R11 : 0715 
A F 4 CALLS #5 NCP$S1G_CMDERR : 
0 05 Av? D 43 64$ MOVL 5S(R7), R : 0719 
05 0 : 4 CMPL R) ga : 0721 
B 12 0034A BNEG 65$ ; 
| 
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NCPVRBACT Action Routines for Verbs 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-74 Page 25 
v04-000 ACTSSAVPRM Save a Parameter 1o-88-1 Re 94:23: 4 NCP. SRC NEPVROACT O3274 ° ALS 
OC Ab 9F 0034C PUSHAB 12(PTR) : 0723 
a8 DD 0034F PUSHL ig : 
7E FF a9 7A ; MOV ZBL ta -(SP) : 
06 3) D1 65$: CMPL RO, #6 : 0725 | 
0c 12 A BNEQ og : | 
0 ag i 0 C PUSHAB 12(PTR) + 0727 
€ AD OF F PUSHAB MODPRO+1 : 
7E A9 vA 0 s MOV ZBL MODPRO, -(SP) : 
07 8 D1 00368 66$: CMPL RO “7 + 0729 
oC 12 6 B BNEQ ‘ $ : 
0c ag OF D PUSHAB 12(PTR) + 0731 
1¢ =A9 OF 00 PUSHAB MODS : 
7E 18 Ad 9A 0037 MOVZBL MODSER, -(SP) ; 
OF 11 0037 BRB 68$ : 
09 9 D1 00379 67$: = CMPL RO "9 : 0733 
13 12 0037¢ BNEQ 69$ F 
OC Ad OF O0037E PUSHAB 12(PTR) + 0735 
e8 AD 9F 00381 PUSHAB MOD29S+1 : 
7E 7 Ad 9A 00384 MOVZBL MOD29S, -(SP) : 
00000000v 00 03 FB 00388 68$: CALLS #3, NCPSMOV_STR : 
12 11 O038F RB 70$ + 0719 
33 AS 9F 00391 69%:  PUSHAB P.AAE + 0739 
01 DD 00394 PUSHL #1 : 
000000006 8F DD 00396 PUSHL #NCP$_LOGIC : 
000000006 00 3 FB 0039C CALLS #3, LIBSSTOP : 
0B Ab 4 90 OO3A3 70$:  #MOVB #4. 11(PTR) + 0743 
8 11 OO3A7 71$: BRB : 0377 
66 06 90 90 A9 72$:  MOVB #6, (PTR) : 0753 
54 14 AC DO OO3AC MOVL § TKNPTR, CPTR : 0754 
50 08 00 00380 MOVL #8, BPOS : 0755 
51 10 Ac dO 0038 6 TKNCNT, R1 : 0756 
51 04 (4 00387 MULL2 #4, LAST_BPOS ; 
51 04 CO 003A ADDL2 #4. LAST™BPOS ; 
5 D4 0038D CLRL. ‘FIRST_NIBBLE : 0763 
51 50 (1 00 BF 73$:  CMPL POS, ~LAST_BPOS : 0765 
3D 14 0032 BGTR $ ; 
52 84 9A 0034 MOVZBL (CPTR)+, CHAR : 0769 
2D 2 01 003¢7 CMPL HAR, #45 + 0770 
06 if O3CA BNEQ ; 
51 04 C 99 cc SUBL2 #4, LAST_BPOS : 0773 
52 4 9A OO3CF MOVZBL (CPTR)+,~CHAR : 0775 
00000041 aF 2 pl 6 De 74$:  CMPL CHAR, #65 : 0777 
1F 003D BLSSU 75$ : 
00000046 =F D1 00 DB CMPL CHAR, #70 : 0778 
1A 003E BGTR 5$ ; 
52 9 C9 E4 ADDL2 # AR + 0779 
06 5 f £7 75$ BLBC FIRST NIBBLE, 76$ : 0780 
FC AO E cA MOVAB =4(ROJ, R : 0782 
04 11 00 FE BRB 77$ ; 
53 04 AO 9E 003FO 768 MOVAB 4(RO), R3 + 0784 
66 04 53 F 0 F4 77$ INSV CHAR, R3, #4, (PTR) ; 
33 D 9 MCOM First NIBBLE. FIRST_NIBBLE : 0785 
0 4 ¢ FC ADDL2 #4, BP ; 186 
BE 1 FF BRB 73§ 3; 97 
50 1 00 00401 78$ MOVL #1, RO * 0801 
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NCPVRBACT Action Routines for Verbs 1b-se 1984 01:55:49 AX-11 Bliss-32 V4.0-742 P 7| 

v4~000 NCPSMOV_QSTR Move Quoted String \e-$ep-1986 12:48:36 ENCPLSRCINCPVRBALT 832s 1 att Ag 

: B17 0804 1 XSBITL "NCPSMOV STR Move Quoted String! | : 
: 13 Babe : ROUTINE NCPSMOV_OSTR (STRCNT, STRPTR, DST) :NOVALUE = ! : 
: 820 SBoS 1 !4¢ : 
: : 1 et : : FUNCTIONAL DESCRIPTION: : 
: 8 x B51) 1/ Copy a quoted string to DST. Quotes are removed if present ; 
> 824 0811 1! and trailing spaces are removed if no quotes are found. ; 
: ? Bais : String is converted into a counted string format : 
; z He 1] | FORMAL PARAMETERS: 
: B29 816 13 STRCNT, STRPTR String descriptor for source strin : 
; tH HEA : DST Address of the area to hold counted string : 
i B3e Q819 1 | IMPLICIT INPUTS: F 
: 834 0821 1: NONE ; 
> 835 08 ¢ 1! ; 
: 836 0823 1 | IMPLICIT OUTPUTS: ; 
: 838 0825 1: NONE : 
; 839 pass 1! § 
: 840 0827 1 ! ROUTINE VALUE: $ 
: Bes +434 : : COMPLETION CODES: : 
: Be $880 1} NONE ; 
> 844 0831 1! 3 
: Bez tit : SIDE EFFECTS: : 
: 847 0834 1: NONE ; 
; 848 0835 1! ; 
; 849 0836 1 !-- 3 
: 850 0837 1 3 
; 851 0838 2 BEGIN 3 
3 o2¢ 0839 2 3 
; 85 0840 2 LOCAL : 
: B3¢ Dees § rele ! Temporary string pointers : 
: 856 084 CPEND, ; 
: See Oace CHAR ' A character as we see it : 
: 859 0846 ‘ : 
: 300 74 CPTR1 = CHSPTR (.STRPTR); ! Point to beginning of source : 
: 86 0849 IF CHS$RCHAR (.CPTR1) EQL '*" ! Is it quoted?? : 
; a 0850 THEN ' Yes . 3 
3; 864 0851 BEGIN é 
; 865 pees CPTR1 = CHSPLUS (.CPTRI, 1) ! Skip initial quote 3 
; 866 085 CPTR2 = CHSPTR (.DST + 1); i Storing pointer ; 
; 867 ete: CPEND = CHSPTR (.STRPTR + ' Pointer to end 3 
: £68 oe ee -STRCNT); : 
; 8% 0837 mts -CPTR1 LSSA .CPEND ! There is more string to process ; 
; 87 0859 4 BEGIN : 
; oT 0860 4 CHAR = CHSRCHAR_A (CPTR1); ! Obtain a character : 
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¥O4~000 NCPSMOV_QSTR Move Quoted String 14- ae 2:48:34 UNCP. SRCINCPVRACT.B32; . % 
: 874 61 4 If .CHAR EQLU ‘*" ! Double quotes are stripped out ; 
: B75 Beg é THEN . a 
: a76 6 BEGIN : 
; 87 864 CHAR = ‘yt te fs CPTR1); F 
; 878 Beer IF .CHAR NEQU $ 
; 879 506 hg EXITLOOP ! Single quote ends the string ; 
; 880 Bae ELSE CPTR1 = .CPTR1 + 1! Advance over quote ; 
; 881 868 END ; 
; Hi 0869 4 : 3 
3 4 0870 4 CHSWCHAR_A (.CHAR, CPTR2) ! Write a character we save : 
; 884 0871 4 END 3 
; 885 ob7e 3 3 
; 886 087 : 
; 887 bane CPTR1 = CHSPTR (.DST + 1); : Build a pointer to new string : 
; 889 bays (.DST) <0, 8, O0> = .CPTR2 - .CPTR1; ! Store the count for the string : 
; «#891 0878 END 3 
; +89 0879 : 
: 89 0880 2 ELSE ' Deal with a string without quotes : 
> 894 0881 NCPSMOV_STR (.STRCNT, .STRPTR, .0ST) : 
: 895 088 3 : 
3 088 3 
; 897 0884 RETURN : 
; 4898 0885 2 : 
3 0886 1 END; ; 
; 
001C 00000 NCPSMOV_QSTR: 3 
-WORD Save R2,R3,R ; 0805 | : 
50 08 AC 00 00002 MOVL STRPTR cPtRt : 0847 : 
22 60 91 00006 CMPB Ss (CPTR1S, #34 : 0849 ; 
35 12 00009 BNEQ 3 3 
50 06 00008 INCL TR1 ; oe3¢ 3 
54 oc AC 01 C1 0000D ADDL3 #1, DST, R4 ; 085 : 
53 54 DO BOO MOVL R4. CPTR2 : 3 
52 08 AC 06 AC C1 0001 ADDL3 STRCNT, STRPTR, CPEND ; 0855 : 
52 50 D1 0001B 1$: CMPL ePTR 1, CPEND ; 0857 : 
17 1€ 0001 BGEQU ; | : 
51 0 9A 0002 MOVZBL (CPTR1)+, CHAR ; 0860 : 
22 1 D1 99 CMPL HAR, #34 : 0861. ; 
A 12 00026 BNEQ 3 3 
51 60 9A 00028 MOVZBL (CPTR1), CHAR 3: 0864 . : 
22 51 D1 0002B CMPL HAR, #34 > 0865 | ; 

of 12 000 BNEQ : 
0 b8 00 INCL CPTR1 ; 0867. . 

83 51 90 00032 2$: MOVB CHAR, (CPTR2)+ : 0870. 

4 11 000 BRB ; 0857 

5 4 g 0037 3$: MOVL R4, CPTRI : 0874 | 

Oc BC 5 0 003A SUBB3 © CPTR1, CPTR2, aDST ; 0876 | 

4 $8 F RET : 0849 | 

7E 8 AC 7D 00040 4$ MOVva STRPTR, =(SP) ; 0881. 

4 A DD 00044 PUSHL STRCNT 3 

00000000v 00 03 FB 00047 CALLS #3, NCPSMOV_STR : 


: 


d 3 
NCPVRBACT Action Routines for Verbs 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-74 Pp 9 N 
yoe~000 NEPSMOV.OSTR Move Quoted String exseen13Be 95:28:92 HAMS E Bb iss 3g .¥t- 03569 age 42) v0 
04 0004E RET ; 0886 
; Routine Size: 79 bytes, Routine Base: SCODES + 0408 | 


NCPVRBACT 
v04-000 


WAN AAI AIR PINT PININPININID 2 2 OO Oe 


QOS OSES See SVSSVSVSSSSSssessesess 
BSIFSAFUNLSSRVUSORNN Sowe~wenrwwoo 


939 


Be Oe Oe Be Oe Se Oe Oe Oe Oe Be Oe Fe Se Be Be Se BH Se Se Se Se Se SH Se Se Se Ge Ge Oe Se Ge Se Ge Se Se Se Se Se Se Se Se Se Oe Se HSH SH Oe Oe OHSS See Oe ee 


3 
outines for Verbs : 1$-sep-19 4 0} :33:9? AX-11 Ol reeves V4.0-74 
STR Move an Unquoted String 14-Sep-1984 12:48:34 NCP. SRCINCPVRBACT.B32; 
ZSBTTL ‘NCPSMOV_STR Move an Unquoted String’ 
ROUTINE NCPSMOV_STR (STRCNT, STRPTR, DST) :NOVALUE = ' 


FUNCTIONAL DESCRIPTION: 


Copy a token string to DST. Trailing spaces are removed. 
String is stored in counted string format. 


! FORMAL PARAMETERS: 


STRCNT, STRPTR String descriptor for source string 
DST Address of target counted string 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 
BEGIN 
LOCAL 
CPTR ; ! Character pointer 
CPTR = .STRPTR + .STRCNT =- 1; ! Last character — 
DECRA IDX ' Strip off trailing spaces 
FROM .CPTR 
TO .STRPTR 
IF CHSRCHAR (.IDX) NEQU * ° ! Strip trailing spaces and 
CHSRCHAR (.IDX) NEQU 9 tabs too 


EN ' Exit with pointer to end 
EXITLOOP CPTR = .IDX 


CHSWCHAR Store the count 


CHSDIFF (.CPTR, .STRPTR) + 1, ! Size of string 
CHSPTR (.DST) ' Here is the count 


Pa9e 13) 


NCPVRBACT A 
v04-000 


RETURN 
END; 


Et SS 


51 08 
08 
01 AO 08 


utines for Verbs 
TR Move an Unquoted String 


t 

PSMOV 

44 CHSMOVE 

46 CHSDIFF (.CP 

4 CHSPTR (. TR) 
48 CHSPTR (.DST + 15 
49 da 

50 

31 

ag § 


oo 


aon 
VIVINE PMUNVWMNOonoeonr—~P 


A AO ODOOOWOuUIO F OS OE 


; Routine Size: 56 bytes, Routine Base: 


p-1984 12:48:34 NCP.SRC 


1 
1 
! Move the string to the target 


«STRPTR) + 1, How many 


' Source 
! Beyond the count 


003C 00000 NCPSMOV_STR: 
~ WORD Save R2,R3,R4,R5 
C1 90002 ADDL3 STRCNT, STRPTR, R1 
9E 0000 MOVAB =(CPTRS, IDX 
11 90008 BRB 3$ 
91 0000D 1$ CMPB Ss IDX), #32 
13 00010 BEQL 2$ 
91 00012 CMPB sss CID), #9 
13 0001 BEQL 2$ 
pO 00017 MOVL IDX, CPTR 
11 OOO1A BRB 4$ 
D7 0001C 2$ DECL IDX 
D1 O001E 3$ CMPL IDX, STRPTR 
1E 0002 BGEQU§ 1$ 
DO 00024 4$ MOVL DST, RO 
C2 00028 SUBL2 STRPTR, R1 
D6 0002C INCL = R1 
90 0002E MOVB R71, (RO) 
28 00031 MOVC3 R1, @STRPTR, 1(RO) 
04 00037 RET 


SCODES + 0457 


t 3 
6-Sep-1984 01:55:49 AX=11 ge ees V4.0=742 
4-Se NCPVRBACT .B32;1 


< 
oO 


Bete Se Se Se Be Be Be Se Se Be Se Be Se Be Se Se Be Be 


3 
wrrwnpact Action Routines for Verbs 18-Sep-1984 91:33:47 AX-11 B Oi iss ss-32 V4.0-7 
v04-000 ACTSCLRLONG Clear a Longword Flag 14-Sep-1984 12:48:34 NCP. SRCIJNCP VRBACT Bae: 
> 969 928 1 SSBTTL ‘ACTSCLRLONG Clear a Longwor rd Clog. 
; 970 955 1 GLOBAL ROUTINE ACTSCLRLONG (OPT, STRCNT, STRPTR, TKNCNT, * sant 
: 971 828 1 CHR, NUM, PRM) = 
; are 9 1 
s o7 0958 1 !+4+ 
; 974 0959 1 ! FUNCTIONAL DESCRIPTION: 
> 975 0960 1! 
; 976 bee: ,? Clear a longword flag or mask 
3 Prr 308 1! 
: 978 0965 1 ! FORMAL PARAMETERS: 
; 979 0964 1! 
; 0 0965 1! Parse state table 
; #98) 0966 1! PRM Address of the longword to clear 
; 98 0967 1! 
; 98 0968 1°! IMPLICIT INPUTS: 
> 984 0969 1! 
; 985 0970 1! NONE 
; 986 0971 1! 
; 4987 0972 1 ! IMPLICIT OUTPUTS: 
; 988 0973 1! 
; 989 0974 1! NONE 
: 990 0975 1! 
; 991 0976 1 ! ROUTINE VALUE: 
; 99 0977 1 ! COMPLETION CODES: 
; 99 0978 #1! 
; 994 0979 1! success 
; 995 0980 1! 
: 996 0981 1 ! SIDE EFFECTS: 
; 997 0982 1! 
; 998 0983 1! NONE 
: 999 0984 1! 
; 1000 0985 1 !-- 
: 1001 0986 1 
: 100 0987 2 BEGIN 
; 100 0988 2 
: 1004 0989 2 -PRM = 0; ! Clear the Longword 
; 1005 0990 2 
: 1006 0991 2 RETURN SUCCESS 
: 1007 0992 2 
; 1008 0993 «#1 END; 
0000 00000 -ENTRY ACTSCLRLONG, Save nothing 
20 BC D4 Bonne CLRL aPRM 
50 01 00 0000 MOVL #1, RO 
04 00008 RET 


S bytes, 


Routine Size: 


Routine Base: S$CODES + 048F 


Page 32 


(16) 


NC 
vO 


as Act 
v04-000 ACT 


; Routine Size: 14 bytes, 


on Routines for Verbs 
TLONG Test a Longword Flag 


XSBTTL ‘ACTSTESTLONG Test a Longword Flag’ 
GLOBAL ROUTINE ACTSTESTLONG (OPT : 


i 

STES 
: 1010 0994 1 
a BY 
; 1018 399 1 
> 1014 998 1 !4 
: 1015 0999 1 
: 198 1000 1! 
: 101 1001 1! 
: 1018 1008 7 
> 1019 1005 1! 
; 1020 1004 1! 
: 1021 1005 1! 
; 10 ¢ 1006 1! 
: 10 1007 1! 
: 1024 1008 1! 
: 1025 1009 1! 
: 1026 1010 1! 
: 1027 1011 1! 
: 1028 a . | 
; 9 1015 1! 
: 1030 1014 1! 
; 1031 1015 1 
: 1036 1016 2 
; 103 1017 § 
; 1034 1018 
: 1035 1019 2 
: 1036 1054 § 
; 1037 1021 
; 1038 Ise 2 
: 1039 10235 2 
: 1040 1024 1 


ie) 
TRCNT, STRPTR, TKNCNT, TKNPTR, 
CHR, NUM, PRM) = 


lee 
! FUNCTIONAL DESCRIPTION: 


Test a longword flag or mask 
FORMAL PARAMETERS: 


Parse state table 
PRM Address of the longword to test 


ROUTINE VALUE: 
COMPLETION CODES: 


Success if the longword is non-zero 
Failure if the longword is zero 


BEGIN 

ae NEQ 0 ! If longword non-zero, 
RETURN SUCCESS ! then return success 
RETURN FAILURE; ! else, failure 

END; 


0000 00000 sENTRY ACTSTESTLONG, Save nothing 
20 «BC OS Banos TSTL @aPRM 
04 13 0000 BEQL 1$ 
50 01 00 00007 MOVL #1, RO 
04 0000A RET 
50 04 00008 1$: CLRL RO 
04 00000 RET 


Routine Base: S$CODES + 0498 


H 3 
16-Sep-1984 01:55:49 AX=-11 Bliss-32 V4.0-74 
14 ety 7 1b iaai ke ENCP.SRC NCPVRBACT.B32; 


0995 
1018 


1022 


1024 


i 


; Routine Size: 11 bytes, Routine Base: S$CODES + 04A6 | 
| 
| 
| 


3 

NCPVRBACT Action Routines for Verbs 1b-se -1984 55:49 AX-11 Bliss-32 V4.0-74 P 4 

¥O4~000 ACTSCOPY.VALUE Copy a Longword value 12r808= 1 3Be 95:28:82 | HAM Bhs ag F-85569 age 1B) 
3 1 ¢ 1025 1 ZSBTTL ‘ACTSCOPY VALUE oP a longword value’ > 
. 4 1 § 1 GLOBAL ROUTINE ACT COPY_VA Ue (OPT, STRCNT, STRPTR, TKNCNT, TKNPTR, ‘ 
> 1044 1 1 CHR, NUM, PRM) = | ; 
3; 1045 1 1 lee ; 
3 J 10 § 1! | 3 
Ht 4 19 , : Copy a longword va.. to another location. | ; 
3 1049 1 1 ! Inputs: | 3 
3; 1050 1 1! 3 
; 1051 19 4 1! Parse state table | 3 
3 1028 1035 1! NUM Source longword | 3 
: 192 8 $ 1! PRM Address of the destination longword F 
; 1054 1 1! 3 
; 1055 1038 1 ! Outputs: ; 
: 1056 1039 1 | | : 
: 105 1040 1! None 3 
<n fae! 
> 1060 1908 BEGIN | : 
; 1061 1044 3 
3 1006 1045 -PRM = .NUM; ! Copy the Longword $ 
; 106 1046 F 
: 1064 1047 RETURN SUCCESS; 3 
3: 1065 1048 $ 
3: 1066 1049 1 END; | : 
; 
0000 00000 .ENTRY ACTSCOPY VALUE, Save nothing > 1026 : 
20 «BC 1¢ AC 00 00002 MOVL NUM, @PRA 3: 1045 3 
50 01 pO 00007 MOVL #1, RO : 1047 3 
04 OOO0A RET 3; 1049 : 


mo 
- 
~ 
a 
a 
© 
a 


i 


32 V4.0-74 
RBACT .832; 


ACTSVRB_EXIT Action Routine to Exit NCP 


Action Routines for Verbs 


snes 
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OK UM TMNOP- OKO UM A ee et aN a et te AE et 6 ON 
COOOCOCOCOOCOCCOSSSoo CGOOSCOOOSCOCOSCOSOSCOSCSCSCSOCOSCOoOOooOoOo 


De eel ceed cel cel eel ceed ce eel eel ol eel cee cee el oe el oe el eel el el ee cl ee ed el el eel ee el a al el alk cel a cee a ol ce ed 


OM WUIMNTMOPR- DOO UM TMOR. DHOOM TNOR. O —WUM TNO 
SSSESRAC SEAR SesoSSSSSSSSOSITSSSROOSOSOSOSS 


LLL OOO 


EXIT, Save nothing 


. SYSSEXIT 


~-EXTRN SYSSEXIT 
#1 
#1 


ENTRY ACTSVRB 


PUSHL 
000000006 00 CALLS 
RET 
Routine Base: SCODES + 0481 


12 bytes, 


; Routine Size: 


PEED AAA Vn BE EEL EBB AAAI AW PNPIPIPUPONPININND 2 2 2 PO OO 


me ee ee ce DD ee ee ee ee ee De ee ee ee 8 ed ed ad od 8 tb od eS 
a ee ee ee) 


kt tk ttt tk tk tt at a tt ot ht ss Ss Ss 2 2s 2s Ss ss ss 9 4 4 3 4 4 1 OOO 
CONAN EWR 0 OD NOU EWN 0 OD NAUE WIN $ O ODA UE WN (OOD NOU EWN “"OOONAOUES WT Oo- 


PoRoR oR ORO ROR ORORORONORONORORONOPONOPONONONUNOPONOPONUNNDYD 2 2 es 
ed 
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NCPVRBACT ction Routines for Verbs 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-74 
v04- CTSVRB_UTILITY Action Routine for Most Verbs 12-80 8=13Re 93:28 4a ENCP.SRC NESVRBALT 6324 
a "ACTSVRB_UTILITY Action Routine for Most Verbs’ 


OBAL ROUTINE ACTSVRB_UTILITY (OPT, STRCNT, STRPTR, TKNCNT, TKNPTR, 
CHR, NUM, PRM: REF BBLOCK) =  ! 


ee 
FUNCTIONAL DESCRIPTION: 


Action routine tc perform parameter processing for almost all 
functions. The NICE messages are built and sent 
to the network object. 


! FORMAL PARAMETERS: 


Parse state table ; 
PRM Address of the SDB table to control this routine 
The SDB has the pettewsng structure 
BYTE (TYP) ode for type of entity. If 
pager nee. Syeten~ages tiie entityt 
LONG (ADR) Address of entit DB 
LONG (ADR) Address of PCL List 


SIDE EFFECTS: 
NICE message built and sent, response processed 


BEGIN 

LOCAL 
STATUS, ' Returned status 
LEN, ' Returned buffer length 
BFR ' Returned buffer address 
MSGPTR; ! Used to build message 


i If we are dealing with a V2.0 NML, then reformat any circuit requests 
! into the appropriate Line request. 


IF NOT .NCPSGL_EXELCB CLCB$B_STS] ! If Link is not open yet, 
NCPSOPENLINK( .NCPSGL_EXELCB); ! Open the Link; signal any errors 

NOT V2_REQUESTS(.PRM) 
RETURN SUCCESS; 


Handle V2.0 conversion (if any) 


If error, exit from action routine 


} Build the message prologue fields 


NCPSBLD_PROLOG(.PRM, MSGPTR); ! Build the prolog for the message 


: Build the parameter entries in the message 


NCI 


3 

NCPVRBACT Action Routines for Verbs 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-742 Page 3 | 

v04-000 ACTSVRB_UTILITY Action Routine for Most Verbs 14-Sep-1984 12:48:34 NCP.SRCINCPVRBACT .B32; 1 (20) | 
: 1168 1149 | ; 
3 4 2 NCPSBLD_PRMS (.PRM CSDBSL_PCL_ADR], MSGPTR, TRUE); ! Enable parameter check : 
3 1171 1188 NCPSSENDMSG ! Send the message to NML and check ; 
; 1126 V2 ! Response for error : 
; 117 1154 -NCPSGL_EXELCB ! Link control block : 
3 1174 1155 «MSGPTR = NCPSGT_MSGBFR, ' Length of message ; 
: 1175 1128 NCPSGT_MSGBFR ! Message start ‘ 
; 1176 115 ); ‘ 
3 1177 1158 : 
$ ie ED STATUS = NCPSREADRSP ! Read the response from NML | ‘ 
: 1180 1161 -NCPSGL_EXELCB, ' LCB | : 
>; 1181 1106 LEN, ! Return the Length here : 
: 1182 116 BFR i Return buffer address here | : 
: 11 1164 FALSE i Not show or List : 
714 1165 ); : 
3; 1185 1166 . 
> 1186 1167 IF_ .STATUS EQL NMASC_STS_MOR ! Beginning of multiple responses? ‘ 
; 1187 1168 ¢ THEN : 
: 1188 1169 BEGIN | ; 
: 1189 1170 3 DO : 
; 1190 1171 4 BEGIN | : 
; 1191 1126 4 IF .LEN NEQ 0 ! Length must be zero ‘ 
3 1192 1173 4 H ° 
3 Bb Wee : SIGNAL (NCPS$_INVRSP) ! Or call out nasty | ° 
: 1195 17g 4 STATUS = NCPSREADRSP ! Read the response from NML | : 
3 1197 1178 4 -NCPSGL_EXELCB, ' LCB : 
; 1198 1179 4 LEN, : Return the length here ; 
3 1199 1180 4 BFR ! Return buffer address here : 
; 1200 1181 4 FALSE i Not show or List : 
> 1201 1182 4 ) | ; 
; 1202 1183 4 END : 
: 1203 1184 3 UNTIL .STATUS EQL NMASC_STS_DON ! Read multiple until done ; 
: 1204 1185 3 END : 
: 1205 1186 ELSE : 
; 1206 1187 BEGIN ; 
; st 1138 IF .LEN NEQ 0 ! Call out unclean if data here : 
: 1909 1190 SIGNAL (NCPS_INVRSP) ! Call out the nasty | : 
> 1210 1191 D | ; 
; igi} 1136 : : 
: 1 4 1198 RETURN SUCCESS ' Never a syntax error reported here : 
D151 1195 1 END; : 
OOFC 00000 ENTRY ACTSVRB_UTILITY, Save R2,R3,R4,R5,R6,R7 ; 1093 : 
57 00000000G 00 43 BROS MOVAB LISS 1GRAL 3 3 
§ 900000006 BF p MOVL &#NCPS_INVRSP, R6 ; ; 
G 00 9E Bato MOVAB NCPSREADRSP, R5 : : 
4 00000000" 00 9€ 0001 MOVAB NCPS$GT_MSGBFR, R4 : : 


aul 


“ 
NCPVRBACT Action Routines for Verbs 1 2:55:49 AX-11 Bliss-32 V4.0-74 P 
yO 080 ACTSVRB_UTILITY het ion Routine for Most Verbs i : ‘42 NCP.SRC NEPVROACT $7835 age 588 
3 000000006 00 9 1 MOV NCPSGL_EXELCB, R3 ; : 
; go 5 fame SUN ESC ‘Sen Coe! 
63 D0 MOVL NCPS$GL EXELCB, RO + 1132) ; 
09 § E8 00028 BLBS (RO), T : ; 
DD 00 PUSHL RO + 1134 ; 
000000006 09 01 FB CALLS #1, NCPSOPENLINK ; ; 
2 20 AC D 1$: MOVL PRM, R2 + 1136 : 
52 DD 00038 PUSHL Re : ; 
00000000v 90 Q1 FB 03D CALLS #1, V2_REQUESTS : | : 
9 €9 00044 LBC. =—Ss«aRO,. S$ : ; 
4004 ®8F 6B 0047 PUSHR  #°M<R2,S + 1144 : 
00000000v 00 02 FB 00 48 CALLS #2, N NCPSBLD. PROLOG : ; 
DD 005 PUSHL #1 + 1150 ; 
04 AE 9F 00054 PUSHAB MSGPTR : ; 
05 A2 dd 00057 PUSHL 5(R2) : ; 
00000000v 00 03 FB OO05A CALLS #3, NCPSBLD_PRMS ; ; 
54 0D 00061 PUSHL R + 1153 ; 
50 64 % 0063 MOV NCPSGT_MSGBFR, RO + 1155 ; 
7E 04 AE 30 C3 00066 SUBL3 RO, MSGPTR, gor : ; 
63 0D 00068 PUSHL NCPSGL EXELC + 1154 ; 
000000006 00 03 FB 0006D CALLS NCPSSENDMSG : ; 
7E D4 00074 CLRL = = ( §P) + 1160 : 
08 AE 9F 00076 PUSHAB BF : 3 
10 AE 9F 00079 PUSHAB LEN : ; 
63 Dd 0007¢ PUSHL NCPSGL EXELCB + 1161 ; 
65 04 FB O007E CALLS #4, NCPSREADRSP : : 
52 50 DO 00081 MOVL RO STATUS : ; 
02 32 D1 00084 CMPL = STATUS, #2 + 1167 ; 
2 if 00087 BNEQ 4$ : ; 
08 AE OD 00089 2$ TSTL EN : 1172 : 
05 13 0008C BEQL 5 F : 
56 0D 9008 PUSHL R6 : 1174 ; 
67 01 FB 0009 CALLS #1, LIBSSIGNAL ; : 
7E D4 00093 38: CLRL _ = (§P) + 1177 3 
08 AE OF 00095 PUSHAB BFR : ; 
10 AE 9F 00098 PUSHAB LEN ; : 
63 DD 0009B PUSHL NCPSGL EXELCB : 1178 
65 04 FB 9009p CALLS #4, NCPSREADRSP ; 
52 50 00 000A MOVL : 
FFFFFF80 BF 52 D1 000A CMPL _—s STATUS, 42128 : 1184 
DD 12 OOOAA BNEQ  2$ ; 
OA 11 OOOAC BRB 5$ > 1169 
08 AE D3 OOAE 4$: TSTL LEN : 1188 
Q 1 9081 BEQL d : 
6 Dd 00083 PUSHL R6 : 1190 
67 01 FB 90085 CALLS #1, LIBSSIGNAL ; 
50 01 B0 00BB S$: MOVL #1. RO : 1193 
4 00088 RET + 1195 


; Routine Size: 188 bytes, Routine Base: S$CODE$S + 04BD 


aon 


et 8 ad ad ad md = = I QHOODOOOOOOOOOO -i- 


RO ODNO UNE WD 2 OODNOAUNE WIN 0 OD NAN EWN 3 0 ODNOAUS WN (OVO NAOUESWR"OVOONO wm. 


RIP IMIMIPIPOMIPIPIMININIAINIDIAY 2 nn i i i kd a = 8 ot 8 = 8 
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nN 3 
on Routines for Verbs 1o~sen= 138 03:23:49 AX-11 Oh esr ae V4.0-74 
VRB_SHOLIS Action Routine for Display Verb 14-Sep-1984 12:48:34 NCP. SRCINCPVRBACT.B32; 
ZSBITL ‘ACTSVRB_SHOLIS Action Routine for Display Verbs’ 
GLOBAL ROUTINE ACTSVRB_SHOLIS ag oan belly” TR, TKNCNT, TKNPTR, 


44 


; FUNCTIONAL DESCRIPTION: 


Action routine to perform parameter processing for show and List 
functions. The NICE messages are built and sent 

to the network object. The responses are read and parsed 

and written to the desired output file. 


i FORMAL PARAMETERS: 


Parse state table , 
PRM Address of the SDB table to control this routine 
The SDB has the spt lewing structure 
BYTE (TYP) ode for type of entity. If | 
negative, pysten~sess rr entity 


LONG (ADR) Address of entit 
LONG (ADR) Address of PCL List 
i IMPLICIT INPUTS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


SUCCESS 
i SIDE EFFECTS: 


! 
1 
! 
! 
1 
1 
i] 
! 
! 
1 
! 
{ 
' 
' 
| 
1 
i] 
i 
t 
t] 
' 
' 
! 
1 
1 
' 
1 
1 
f 
t 
NICE message built and sent, response processed 
! 


BEGIN 
MAP 
PRM : REF BBLOCK CSDBSC_SIZE] ! SET DEFINE Block 
LOCAL 
STATUS, Returned status 
LEN, Returned buffer length 


Returned buffer address 
True if non-null reply returned 
Used to build message 


BFR 
INFO_RETURNED, 
MSGPTR; 


: Enable a condition handler to close the output file for show/List 
! We know that the file is not opened immediately and that a 


——————————————_ 
| 
| 


NCPVRBACT Action Routines for Verbs 18-se "984 01:55:49 AX-11 Bliss-32 V4.0-742 Page 40 
v04-000 ACTSVRB_SHOLIS Action Routine for Display Verb 12-881 Ske 12:48:34 NCP. SREINCPVRBACT 83224 ° (21) | 
73 3 / signal -y occur before the file is opened. This will cause the 
74 & : Close ro be attempted before the file is opened. The close 
? ‘ operation does not signal however so this is not a problem now. 
f : 
A) 28 ENABLE NCPSHNDL_SHOLIS; ! Enable handler to close file 
80 60 : 
81 61 ! If we are dealing with a V2.0 NML, then reformat SHOW CIRCUIT 
B¢ ¢ ! into SHOW LINE. 
38 o : 
$ H IF NOT .NCPSGL_EXELCB CLCBSB_STS] ! If Link is not open yet, 
3 67 NCPSOPENLINK(.NCPSGL_EXELCB); ! Open the Link; signal any errors 


IF NOT V2_REQUESTS(.PRM) 
RETURN SUCCESS; 


Handle V2.0 conversion (if any) 


If error, exit from action routine 
; Build message prologue 


NCPSOPENSHO (); 
NCPSBLD_PROLOG(.PRM, MSGPTR); 


! Open output file for show or List 


SSELESRANLESEGRAL 


! Build the prolog for the message 


Wwwtwrronronr 


ooc 
wr 


Build the parameter entries in the message 


NCPSBLD_PRMS (.PRM CSDBSL_PCL_ADR], MSGPTR, FALSE); ! Disable parameter check 
othe emai 
“CPS EXELCB 


2 
-MSGPTR~- NCPSGT_MSGBFR, 
NCPS$GT_MSGBFR 


0 09 Cp CD 00 CD CD CO 
DONOUS Ww 


Send the message to NML and check 
Response for error 

Link control block 

Length of message 

Message start 


WAI 
228SSSSS 
co 


RAVLS 


NCPSSHOHEAD (); 

sTatys = NCPSREADRSP 
-NCPSGL_EXELCB, 
LEN 


Write the heading for the data 


~o 
“ 


Read the response from NML 


S22F 


LCB 
' Return the Length here 
Return buffer address here 
This is a show or List 


BFR 
TRUE 
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Mehorornon 


INFO_RETURNED = FALSE; Assume no information returned 
IF .STATUS EQL NMASC_STS_MOR 
THEN 
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dO 
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Read them all 
Process them if data is here 


NCPVRBACT 
vOu~000 


0 


>> 
aon 


BEGIN 
IF .LEN NEQ 0 
THEN 


BEGIN 
NCPS$SHOLIS(.LEN, .BFR); 


Pass the buffer Length and address 


A allege = TRUE; ! Indicate we got information back | 
STATUS = NCPSREADRSP ! Read the response from NML | 

-NCPSGL_EXELCB, ' LCB 

LEN, ! Return the length here 

BFR ' Return buffer address here 

TRUE ! This is a show or List 


as -STATUS NEQ AMAST_STS_DON 


INFO_RETURNED = TRUE; Then mark information (an error) 


END WAS returned. 
he -STATUS EQL NMASC_STS_DON ! Until done is in 


| 

) 

IF .STATUS NEQ NMASC_STS_SUC ! If not successful, | 
| 

| 

| 

| 


a 
POO RAAAMARAMARE EERE ER ee Restated 
DONOULS WR — 


Be Ge Se Oe Ge Ge Se Be Ge Be Be Ge Se FHS SH Se Be Be Be Ose Oe OH Se Se Oe SH Ss Oe OHS Oe BH Oe Se Se B48 Se OH Se Oe OHS Oe Oe ee 
ee i eee ee ee ee ee 
WN 90 OONOUE WN 0 OONOUFWR Oo 
ee a a a ed 8 ed dd dd dd td dd od dd 
WWIWWWAAA NIAAA AAI AIWA AWA AAA AN AIAIW AIA WWINIANAAAIAAIAIAINA NA ANA 
PUPP SIT TII BS BS BS BS BE BE ANAM NIAID 2 2 ett 
CNA UE WN 0 OO NAVE WIN 9 ODNOA UENO OONOAUE AR OOONOUESWNR"O we: 


=PIPNIMPINININ AWAD WNW & BANNAN EE 


ELSE 

B ' Not multiple responses 
IF .LEN NEQ 0 ! Report data if any 
THEN 
BEGIN 
NCPS$SHOLIS (.LEN, .BFR); ! Display information 
a = TRUE; ! Indicate we got information back 
IF .STATUS NEQ NMASC_STS_SUC ! If not successful, | 
INFO_LRETURNED = TRUE; ! Then mark information (an error) | 

364 ! WAS returned. 
$0? END; | 
367 IF NOT .INFO_RETURNED ! If no information was returned, 
368 THEN 
369 BEGIN | 
370 NCPSWRITESHO(ASCID('No information in database')); 
371 NCPSWRITESHO(ASCID(" ')); 
376 END; 
34 NCPSCLOSESHO (); ! Close the output file 
a) RETURN SUCCESS; ! Never a syntax error reported here 

. 1378 END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


0052 -BLKB 2 
20 6€ 6F 69 74 61 6D 72 6F 66 6E 69 20 6F rt} boast P.AAG: .ASCII \No information in database\<0><0> 
00 00 65 73 61 62 61 74 61 64 20 6E 6 0063 


ee 
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NCPVRBACT Action Routines for Verbs 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-74 Page 4 
yO4~000 ACTSVRB_SHOLIS Action Routine for Display Verb 12286-1382 9} 48:34 NCP.SRCINCPVRBACT. B3oed : es 
000001 0070 P.AAF: .LONG 26 : : 
00000 0° 007% .ADDRESS P.AAG : ; 
00 00 5 078 P.AAI: yoy \ + oe ; : 
00 0001 0007C P.AAH: NG 1 : : 
0000000" 00080 “ADDRESS P.AAI : : 
<PSECT S$CODE$,NOWRT,2 ; 
O1FC 00000 .ENTRY ACTS$VRB SHOLIS, Save R2,R3.R4,R5.R6,R7,RB  ; 1197 ; 
58 900000006 99 9E 9000 MOVAB NCPS$WRITESHO, R8 : ; 
57 000000006 100 9€ 0000 MOVAB NEPSSHOL ig” a) : : 
56 000000006 00 9€E 00010 MOVAB NCPS$READRSP, R6 : ; 
55 00000000' 00 9E 00017 MOVAB NCPSGT_MSGBFR, RS : ; 
54 000000006 00 9 OO01E MOVAB NCP SOL EXELCB, R4 : : 
SE Oc C2 000 SUBL2 wig es : ; 
6D OOEB CCF DE 00028 MOVAL > 1237) : 
50 64 00 00020 MOVL Mg tt EXELCB, RO + 1265 | : 
09 60 £8 000 : BLBS (RO), T$ : : 
50 DD 0003 PUSHL + 1267 : 
000000006 00 01 FB 00035 CALLS #1, NCPSOPENLINK : | : 
52 20 AC 00 0003C 18: MOVL PRM, R2 : 1269 3 
52 DD 00040 PUSHL R : : 
00000000v 00 01 FB 00042 CALLS #1, v2 REQUESTS : : 
03 50 Eg 00049 BLBS RO, 2$ : : 
00c4 31 0004C BRW : 3 
000000006 00 00 FB O004F 2$: CALLS #0, NCPSOPENSHO + 1277) : 
4004 8F BB 00056 PUSHR #*M<R2,SP> 1279 | : 
00000000v 00 02 FB OO05A CALLS = #2 NCPSBLD_PROLOG : : 
7E D4 00061 CLAL (§p) : 1285 ; 
04 AE 9F 00063 PUSHAB MSCPTR : : 
05 A2 DD 00066 PUSHL  5(R2) : 3 
00000000v 00 03 FB 00069 CALLS #3, NCPSBLD_PRMS ; : 
55 pd 00070 PUSHL R5 : 1288 : 
50 65 4 00072 HOVAB NCPSGT MSGBFR, RO : 1290 : 
7E 06 «AE 50 ¢3 0007 SUBL MSGPTR, -(SP) ; : 
64 DD OO07A PUSHL ‘ cbse EXELC ; 1289, : 
000000006 00 03 FB 0007C CALLS NCPSSENDMSG ; : 
000000006 00 00 FB 00083 CALLS #0, NCPS$SHOHEAD > 1294, : 
01 DD OOOBA PUSHL ; 1297 : 
08 AE 9F 0008C PUSHAB orn ; : 
10 AE 9F OO08F PUSHAB ; | : 
4 DD 00092 PUSHL NPSL SHEADR : 1298 : 
aa 4 FB 00094 CALLS ‘. NCP READ RSP : ; 
53 0 00 90097 MOVL : : 
é D4 OO09A CLRL te RETURNED > 1304 : 
02 D1 0009C CMPL TATOS, #2 : 1306 : 
D 12 0009F BNEQ ; : 
08 AE 05 OO0A1 38: IstL LEN ; 1311 | ; 
oC 1 DOA BEQL = 4 ; | : 
04 AE DD 000A6 PUSHL BFR > 1314. : 
0c AE DD 000A9 PUSHL LEN ; : 
67 FB OOAC CALLS #2, NCPSSHOLIS : : 
2 1 DO OOOAF MOV #1, INFO_RETURNED ; 1313 | : 
1 pd 00B2 4$ PUSHL @# : 1318 : 
08 AE 9F 000B4 PUSHAB BFR ; : 
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10 AE 9F 00087 PUSHAB 
DD QOOBA PUSHL 


AX-11 Bliss-32 V4.0-742 Page 43 
NCP.SRCINCPVRBACT.B32;1 (21) 


| 


$GL 1319, 
iy ee 


is. 


9 
4 
EN 
cP 
4, 
0, $ 
TAT 
$ 
nae #-128 
1, 
TAT 
$ 
EN 
$ 
Ss 


1324, 
FFFFFF8O 8 §8©8F 1325, 


- rg grneo 


52 
FFFFFF8O ©68F 5$: CMPL 


4 
:3 
L 
N 
a 
R 
BEQL : 
grarus 
8 
6$: TSTL 
PUSHL B 
NCPSSHOLIS 
INFO) RETURNED 
7$: CMPL s1 thr 


a INFO_RETURNED 
8$: BLBS _—sINFO_RETORNED, 9$ 


P.AA 
CALLS) #1, NCPSWRITESHO 

P.AAH 

CALLS #1, NCPS$WRITESHO 
9$: CALLS #0, NCPSCLOSESHO 
10$: MOVL #1, RO 


11$: «WORD Save nothing 
-(SP) 


RMN HMMM MMMNMOCVIVIVOOOOoOWW 


00000000" 
00000000" 
000000006 00 


So 
rx 
SOCKDDOMDOMDOF FOP —-NNDOUOUMOD 
2020 [ON WWW MMOAMOUWWWOWOR & 


aiateatead «fd atatad aad 
RWW “ Wwe Ww 
— 


00 


SP 
MOVQ 4(AP), 


04 (SP) 
cms #3, NCPSHNDL -SHOLIS 


orvui~n 
womn 


7E 
00000000v 00 


Se Se Se Se Se Se Se Be Be Be Be Se Be Se Se Be Se Se Be Be Se Se Se Se Be Se Ge Se Fe Fe Se Se Se Se Be 


peje jleoleleleleleleoleole lolol aj oleololololelololololololelolejieleleiqo) 
3 tt SS SS | VOOCOOOOCOCOOOCOCOOCOOOOOCOCSoO 


OVO VOCOCU BT"O™MNOMO—-VTIO "OO —-9o —-—90 C0 0-970" 
woo £OL CWI "WD "WOw0O90 9 WN "OW OW 
pee jelole lolol eo lololelealelealofol ole olelelelol ao! 
Sas 

CO" 9 DW ONOWO OWO F HLM FAO OOW MEO FS WOM NUIT 

=z 

Oo 

< 
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; Routine Size: 297 bytes, Routine Base: $CODE$ + 0579 


F 4 
oo Action Routines for Verbs Jo~sen~ 1386 91:33:4? ese Bliss-32 v4 
v04-000 NCPSHNDL_SHOLIS Handler to Close Output 14-Sep-1984 12:48:34 NCP.SRCINCPVRBACT 
: 1380 1359 1 ZSBTTL ‘NCPSHNDL_SHOLIS Handler to Close Output’ 
: 1381 1360 1 ROUTINE NCPSHNDL_SHOLIS (SIG, MECH, ENBL) = ' 
3 3 B 1361 1 
; 138 1 86 1 44 
; : rf: : o : FUNCTIONAL DESCRIPTION: 
; 1386 1365 1! This is a condition handler for the show/List output routines. 
: eae 1366 1! It closes the output file, if it sees the unwind signal 
3 1366 ; 44 : otherwise it just resignals the condition. 
; 1390 1369 1 ! FORMAL PARAMETERS: 
3 133) 1370 1! 
3 1 4 1371 1! SIG Address of signal array 
3; 139 1 i 1! MECH Address of mechanism array 
: 1394 1373 1! ENBL Address of mechanism array (none) 
> 1395 1374 1! 
3 1396 1375 1°! IMPLICIT INPUTS: 
3; 1397 1376 1! 
: 1398 hice ee NONE 
3; 1399 1378 1! 
; 1400 1379 1°! IMPLICIT OUTPUTS: 
: 1401 1380 1! 
3: 1402 1381 1! NONE 
: 1403 1386 1! 
3 1404 138 1 ! ROUTINE VALUE: 
3 1405 1384 1 ! COMPLETION CODES: 
: 1406 1385 1! 
3; 1407 1386 1! NONE 
3; 1408 1387 1! 
3; 1409 1388 1 ! SIDE EFFECTS: 
3 1410 1389 1! 
3 1411 1390 1! NONE 
: 1412 1391 1°! 
3 1413 1336 1 l= 
> 146146 1393 1 
3 1415 1394 2 BEGIN 
: 1416 1395 
3 1417 1396 MAP 
3; 1418 1397 SIG : REF VECTOR, ! Map the arguments to vectors 
3; 1419 1398 § MECH : REF VECTOR, 
3: 1420 1399 ENBL : REF VECTOR 
3; 1421 1400 : 
: 14ge 1401 ae 
: 142 1408 IF .SIG C1) EQL SS$_UNWIND ' Check for the unwind condition 
: 1426 140 THEN 
> 1425 1404 BEGIN ; 
> 1426 1405 NCPSCLOSESHO (); ! Close the show/list output file 
: 1427 1606 RETURN SUCCESS ! Return value is irrelavent 
3: 1428 140 END 
: segs 1408 SE ; aS 
3; 1430 1409 RETURN SS$_RESIGNAL ! Resignal the condition 
3: 1431 1410 
: 1432 1411 1 END; 


0-742 P be 
"B32; 1 29° (23) 
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| 
| 
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PVRBACT.B32;1 


0000 00000 NCPSHNDL_SHOLIS: 


NCPSHNDL_SHOLIS Handler to Close Output 
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Routine Base: $CODE$ + 06A2 


33 bytes, 


= 
N 
- 
” 
av 
c 
- 
3 
a 


H 
on Routines Hs Verbs 16- 
VRB_LOOP Action Routine for LOOP Command 14 


ZSBTTL ‘ACTSVRB_LOOP Action Routine for L 
GLOBAL ROUTINE ACTS$VRB_LOOP oat yg A 5 


55:49  YAX=11 Bliss-32 v4.0-742 Page 46 
28:34 ENCP.SRCINCPVR 29° 0) 


2 V4.0-7 
BACT .B32; 


_ 
- 


NCPVRBACT Act 
vO4~000 ACT 
1 
1 


NT 


uw 


: TKNPTR, 
| 


'e4 
' FUNCTIONAL DESCRIPTION: 
Perform the loop command. Build the message and send it. 
The seep command message is similar to other message formats 
but to handle access control properly we need a special action 
routine. | 
i FORMAL PARAMETERS: 
Parse state table | 
PSDB Address of the SOB for the loop entity 
i IMPLICIT INPUTS: 
| 
| 


NCPSGL_FNC_CODE 
NCP$GL_ OPTION 


i IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Success or error signalled 
i SIDE EFFECTS: 
NONE 


v 
= 7A) 
@ ~J 
5 ad 
(>) 
o 
Oo 
> 
Oo 
o 


BEGIN 


Pp 
PSDB : REF BBLOCK CSDBS$C_SIZEJ] ! Pointer to the sdb 


100 09 09 09 SI NIN INN SN SN NNSA AAA AAAAOAMIMINIIIIMIUI EBB 


LOCAL 
STATUS, Return status | 
LEN, Length of return 
Address of return 
Pointer into message 


BFR 
MSGP7R 


ul -NCPS$GL_OPTION CNMASV_OPT_ACC] ! there can be no access control 


N 
IF .NCPSGL_OPTION CNMASV_OPT_ENT] ! If entity is LINE 
EQL NMASC_ENT_LIN 


RIPIPIPIPOPOAPINNDPNPOPINPININDIDS 2 9 OO OP 0 Se PD 


Be Be Se Se Be Se Se Be Be Se Be Se Se Se Se Se Be Se Se Se Se Ge Ge Se Fee Se Ge Ge Ge Se Se Se Se Ge Se Ge Se Se Ge Se Se Se Se Fe See Sse Se SH Se Se Se Ss Se Se ee 
ee ee ee ee ee ee ee Lee 
Pe oe oe ot ot ot ot ot ot et et ee ee ee ee et 


Be Bee Be Ge Be Se Se Se Se Se Se Se Se Fe Se Se FH Se Se Se Se Se ae Se Se Ge Se Se Se ee Se ae Se Se Se Se ee Seas Se Se Se Seas teas te Seas 
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NCPVRBACT Action Routines for Verbs 18-Sep-1984 91:33:47 AX-11 Bliss-32 V4.0-74 Page 47, 

-000 ACTSVRB_LOOP Action Routine for LOOP Command 14-Sep-1984 12:48:34 NCP. SRCINCPVRBACT .B32; (23) 
: 14691 1469 EN | 
; 1436 oly ns SIGNAL STOP (NCPS$_ACCLIN) 
> 1494 1026 IF gucrea. pPEATNC ate -OPT_ENT] ! If entity is CIRCUIT 
3 1495 147 L NMASC_ 
: 1638 1474 THEN 
3; 149 1475 SIGNAL _STOP spo! 
3; 1498 rg 
3; 1499 147 : 
; 1500 1478 ! If we are dealing with a V2.0 NML, then reformat any circuit requests 
; 1501 1479 i into the appropriate Line request. 
; 1208 1339 : 
; 150 1481 
: 1288 O56 IF NOT .NCPSGL_EXELCB CLCBSB_STS) ! If Link is not open yet, 
: 1288 eke NCPSOPENLINK(.NCPSGL_EXELCB) ; ! Open the Link; signal any errors 
3 1208 1o58 IF NOT V2_REQUESTS(.PSDB) ! Handle V2.0 conversion (if any) 
: 1510 1488 RETURN SUCCESS; ' If error, exit from action routine 
3 1511 1489 
3 at 1490 ‘ 
; 151 1491 ! Build the message prologue fields 
3 1514 1038 : 
3 1515 149 
5 1218 ey: NCPSBLD_PROLOG (.PSDB, MSGPTR); ! Build the prolog for the message | 
; 1518 1496 ‘ IF .NCPSGL_OPTION CNMASV_OPT_ACC] ! If there is access control 
; 1519 1497 THEN ! store the three strings 
: 1520 1498 BEGIN | 
: 1521 1499 MSGPTR = 
; 139¢ 1500 CHSMOVE | 
: 152 1501 ( 
> 1524 130¢ CHSRCHAR (PDB$G_LOO_USR + 1) + 1, 
: 136? 150 PDB$G_LOO_USR + 1, 
3: 1526 1504 . 
3; 1527 1505 ) 
3; 1528 1506 MSGPTR = 
: 1529 1507 CHSMOVE 
3; 1530 1508 ( 
> 1531 1509 CHSRCHAR (PDB$G_LOO_PSW + 1) + 1, 
3; 1532 1510 PDB$G_LOO_PSW + 1, 
: 1533 1511 F 
3 95 1316 ) 
3; 1535 151 MSGPTR = 
3: 1536 1514 CHSMOVE 
3: 1537 1515 ( 
5 1288 1218 cant ig A (PDBS6 _LOO_ACC + 1) + 1, 
3; 1539 151 PDB$G ACC +71, 
3; 1540 1518 -MSGP Prk’ 
3: 1541 1519 : 
i 1542 1520 END | 
3 154 1521 ; 
3 1544 1 § 
3 oF: 1 ? NCPSBLD_PRMS ! Add parameters to end of message 
3 1809 1358 -PSDB CSDB$L_PCL_ADR), ! Address of parameter List 


J 4 
NCPVRBACT Action Routines for Verbs 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-74 P 
¥O4~000 ACTSVRB_LOOP Action Routine for LOOP Command 1a-8ep-19 4 12:48:34 ENCP.SRC NESVRBALT O34 age 345 
: 1548 1 MSGPTR, ' Message pointer 
3; 1549 1 = FALSE ' No pereneter check 
Be ig : 
: 1 ¢ 1530 NCPSSENDMSG ! And send the message and check the | 
5 122 1531 ' Response for error 
; 1554 1 ¢ -NCPSGL_EXELCB ! Link control block 
: 122? 15 -MSGPTR = NCPSGT_MSGBFR, ' Length of message 
3: 1 2 1 4 NCPSGT_MSGBFR ! Message start 
: 1828 1882 : | 
; 1222 1 ; wrays = NCPSREADRSP ! Read the response from NML | 
: 1561 1539 .NCPSGL_EXELCB, ' LCB 
: 1368 1540 LEN, i Return the Length here | 
: 156 1541 a ' Return buffer address here 
> 1564 1348 FALSE i Not show or List 
: 1565 154 : 
ee RE 
: 1568 1546 i Messages not looped is reported with errors. The returned data 
: 1569 1547 ' is ignored here. 
BR TRB 8 
; 1572 1550 RETURN SUCCESS 
: 157 1551 2 
: 1574 1552 1 END; 
OFFC 00000 -ENTRY ACTSVRB_LOOP, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 1413 
5B 000000006 00 9€ 00002 MOVAB PDB$G_LOO_ACC+1, R11 : 
25 bo0000008 90 9E 90010 MOVAB  PRBSGTLOOTUSRS1. AD” 
38 000000006 00 9€ 00017 MOVAB NCPS$GC_OPTION, R8 : 
57 000000006 00 9 00016 40V NCPS$GL~EXELCB, R7 : 
5E 0c C2 000 SUBL2 #12, § : 
68 93 000 é STB NCP$GL_OPTION ; 1465 
50 68 03 66 EF 0002C EXTZV #0, #3, NCPSGL_OPTION, RO : 1467 
01 iH b} 09 | CMPL RO, #1 3 1468 | 
000000006 8F bb 99 6 PUSHL #NCPS_ACCLIN : 1470 | 
03 50 p} 005¢ 1$ CHPL RO. #3 : 1473 | 
000000006 Ht DD 0045 PUSHL #NCP$_ACCCIR > 1475 
000000006 99 ‘€. 904 3: CALLS #1, LYBSSTOP : 
0 67 D 9 $: MOVL NCPSGL EXELCB, RO > 1482 
om $9 5D 80 nt 5 2 1484. 
000000006 90 01 FB 0038 CALLS #1, NCPSOPENLINK : 
6 20 AC DO 0005F 4s: MOVL PSOB, R6 > 1486 | 
56 DD 00063 PUSHL 6 : 


; Routine Size: 228 bytes, Routine Base: $CODE$ + 06C3 


: 
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NCPVRBACT Action Routines for Verbs 16-Sep-1984 55:49 AxX-11 Bliss-32 V4.0-74 m 9) 
yO4~000 ACTSVRB_LOOP Action Rout ine for LOOP Command 12286871382 932844 NCP.SRCINCPVRBACT. “B3084 9° (28) 

00000000v 00 1 F 5 A #1, V2_REQUESTS ; ; 

EB S86 EMS gy, ntout Gee! 

4040 BF 6B i PUSHR #*M<R > 1494 ; 

00000000v 00 F 0 3 CALLS #2 Reb Sei D PROLOG : ; 

$ 9 tA ist6 NCPSGL OPTION ; 1496 | : 

50 3 9A Ort HOVZBL PDBSG_LOO_USR+1, RO + 1502 | : 

00 BE 69 9 28 0 MOVC3 RO, PDB$G_LOO_USR+1, @MSGPTR t 1504 ; 

of b 00 MOVL MSGPT : ; 

A 9A 90088 MOVZBL PDB$G_LOO_PSW+1, RO + 1509 ; 

bg 008 INCL. R : : 

00 BE 6A MOVC3 RO, PDB$G_LOO_PSW+1, @MSGPTR + 1511 ; 

gf 0 0009 MOVL MSGPT : ; 

68 94 00098 MOVZBL P PDB$G_LOO_ACC+1, RO ; 1516 ; 

00 BE 6B g Be 0090 MOVC3 mf PDBSG LOO_ACC+1, @MSGPTR : 1518 ; 

6E DO O0AQ MOVL PTR : ; 

E D4 OOOAS S$: CLRL C&P) + 1524 ; 

04 AE OF O00A7 PUSHAB MSGPTR : F 

05 Ag DD OOOAA PUSHL 6) + 1525 : 

00000000v 00 03 FB OO0AD CALLS NCPSBLD PRMS : : 

00000000" 00 9F 00084 PUSHAB cost SGBFR + 1531 ; 

50 00000000' 90 9E OOOBA MOV NCPScI” ASFA, RO : 1533 ; 

7E 04 AE 0 ¢c3 000C1 SUBL 5 (SP) : : 

67 DD 000C6 PUSHL he EXELC : 1532 : 

000000006 00 03 FB 000C8 CALLS NCPSSENDRSG : ; 

7E D4 OOOCF CLAL : 1538 ; 

08 AE 9F 000D1 PUSHAB ark : ; 

10 AE 9F 000D4 PUSHAB LEN : : 

67 DD 00007 PUSHL NCPSGL EXELCB + 1539 : 

000000006 00 04 FB 00009 CALLS #4, NCPSREADRSP : : 

50 01 DO OO0EO 6$: MOVL an. RO + 1550 : 

04 000E3 RET : 1552 ; 
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utines for Verbs 18-56 -1984 01:55:49 AX-11 Bliss-32 V4.0-74 

TS Handle compatibility with v2.0 NM 1 ~30071 38% 93:23: 4 ENCP. SRE wesvagatt o5o04 
$B 


TTL ay REQUESTS Handle coupes tOi tity with V2.0 NML* 
TINE V2_REQUESTS (SDB: REF BBLOCK) = 


This routine handles the case where we are sending a request 

to a V2.0 NML, which only knows about Lines, instead of Lines 
and circuits. We must reformat any circuit request into the 

appropriate Line request. 

Inputs: 

sdb = Address of the SDB structure 

Outputs: 


Routine = True if valid converted message, False if error in message 


LOCAL 
! Parameter control List 


BIND 
V2_LIST = UPLIT WORD( ! List of circuit -> Line parameters 

NMASC_PCCI_STA, NMASC_PCLI_STA, 
NMASC_PCCI-SER, NMASC_PCLI_SER, 
NMASC_PCCI_LCT, NMASC_PCLI_LCT, 
NMASC_PCCI_BLO, NMASC_PCLI_BLO, 
NMASC_PCCI_COS, NMASC_PCLI_COS, 
NMASC_PCCI_ TRI, NMASC_PCLI TRI, 
-1, -T): VECTOR C,wORD,SIGNED): 

IF CHSNEQ(3, NCPSGL ti CLCBSB_NMLVERS], ! If not NML V2.0, 

3, UPLIT BYTE(2,0,0), 0) 


N 
RETURN TRUE; ! then leave the message stand as is 


IF .SDB CSDB$B_ENT we LSS 0 ! If not a circuit request, 
OR .NCPS$GL_OPTION CNMASV_OPT_ENT] NEQ NMASC_ENT_CIR 


N 
RETURN TRUE; ! Then leave the message stand as is 
NCPSGL_OPTION CNMASV_OPT_ENT] = NMASC_ENT_LIN; ! Change to Line request 


Here, we can't assume that the numbering scheme between V3.0 NICE circuit 
parameters ong v2.0 NICE Line parameters match exactly, so we must 

convert the circuit pereneter code to the corresponding line parameter 
code in V2.0 NICE. f the circuit parameter doesn't appear in this table, 
then reject it, as the remote NML wouldn't understand it anyway. 


PCL = .SDB CSDB$L_PCL_ADR); ! Get address of PCL array 
IF .NCPSGL_FNC_CODE EQL NMASC_FNC_CHA | If its a SET or DEFINE, 


<z 


om 


Mm 4 


NCPVRBACT bgt ion Routines for Verbs 16- sep~ 138% 91:33:4? AX-11 Bliss-32 V4.0-74 
v04-000 V2_REQUESTS Handle compatibility with V2.0 NM 14-Sep-1984 48:34 NCP. SRCINCPVRBACT.832; 
: 1633 1610 THEN 

3; 16354 1611 INCRU I FROM 0 ! Scan all the parameters 

> 1635 a DO 

: 1636 161 BEGIN 

; i? 1el8 i, gpct C.1, PCL$B_PRM_TYP] EQL PBKSK_END ! If end of parameter List, 

; 197% 1918 EXITLOOP; ! Then we are all done 

: 1943 1913 if ~BBLOCK C.PCL C.1, PCLS$L_PDB_ADR], PDBSB_STS_FLG] ! If parameter specified, 
3 1648 \9 ? INCRU J FROM O BY 2 ! For each entry in conversion List, 

> 1645 16 § 4 GIN 

> 1646 16 4 IF ive LIST C.J] EQL -1 ! If end of table, 

3 1647 1624 4 

3; 1648 1625 5 NBEGIN 

>; 1649 1626 5 5a FA (mere V2COMP); ! Signal conversion error 

ep 18h Nadiad: 

; 193¢ 1629 4 IF We LIST C.J] EQL .PCL C.1, PCLSW_PRM_ID] ! Match found? 

: 165 1630 4 THEN 

> 1654 1631 5 BEGIN 

3; 1655 1o36 5 IF .PCL C.1, PCLSW_ PRM 1D] NEQ .V2_LIST C.J+1) ! If not the same, 
3: 1656 1633 5 THEN ' Tassume the codes are the same 

3: 1657 1634 6 BEGIN ' because the PCL List is read-enty? 

>; 1658 1635 6 £1 SA cece V2COMP); ! Signal conversion error 

3; 1659 1636 6 RET — FALSE; 

: 1660 1637 5 END 

3: 1661 1638 5 EXITLOOP; ! Then pronounce it OK 

: 1o36 1639 4 END; 

3; 166 1640 3 END; 

3: 1664 1641 2 END; 

: 1665 1966 2 

3; 1666 164 § RETURN TRUE; 

3 1667 1644 

3; 1668 1645 1 END; 


.PSECT S$PLITS,NOWRT,NOEXE ,2 
84 P.AAJ: .WORD 0, 0, 
960,°1140; 1146, 
AO P.AAK: -BYTE a. 6, 0 
V2_LIST= P.AAJ 


0384 0384 032A 032A O06E O06E 0064 0064 000 
FFFF FFFF 047 


so 
oo 
+o 


-PSECT SCODES,NOWRT,2 
O1FC 00000 V2_REQUESTS: 
WORD 


Save R2,R3,R4,R5,R6,R7,RB 
NCPSGL_OP OPTION; R& 


rite ‘lye ee 


100, 100 119. . 810, 810, 900, 
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; Routine Size: 151 bytes, Routine Base: S$CODE$ + 07A7 
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NCPVRBACT action Routines for Verbs 16 -1984 755:49 AX-11 BLi We Oe Page 52 
- andle compat ty with V N - 248: N ae att B32; (24) 
v04=000 _REQUESTS Handl ibili ith V2.0 NM 14- 1382 3 48 rH CP.SRCIN 32; a 
50 06 =A 1 MOVL SDB, RO : 159 
§ Be 09 : TSTB RBS : . 
A 19 4 BLSS 6$ : 
03 68 03 : F 6 CMV #0, #3, NCPSGL_OPTION, #3 : 1593 
68 03 90 81 F INSV Hl, #0, of. NCPS$GL_OPTION t 1597 
$ 05 AO D MOVL = SCR RO) + 1607 
13 000000006 I D| : cMPL NcP GL. Fat CODE, #19 : 1609 
3 D4 0003F CLRL_. I + 1614 
2 i Bp EF $08 TH RE ees | 
17 23 3 $o28 CMPB) 3s (R$), #23 ; 
4g 13 0004¢ BEQL © 6$ ; 
3A 03 : 69 OO4E BLBC @3(R3), 5$ + 1618 
4 b4 005 CLRL oJ : 1629 
55 E4 A744 3E 00054 2$: MOVAW V2_LISTCJJ, R5 + 1623 
FFFF 8F 65 61 Bppee CMPW (R5), #1 $ 
18 13 O05 . = : 
50 01 A3 3C 0006 MOVZWL 1(R3), RO + 1629 
50 65 10 00 EC 00064 Vv #0, #16, (RS), RO : 
1C 1g 0069 BNEQ 4$ F 
50 E6 A744 3 0068 CVTWL «= V2_LIST#2C] t 1632 
50 01 AB 10 00 ED 0007 CMPZV #07 #16, rag? : 
14 13 00076 BEQL : 
000000006 8F DD 00078 3s: PUSHL aNCPS V2COMP + 1635 
000000006 00 01 FB OO07E CALLS , LIBSSIGNAL ; 
0D 11 00085 BRB a + 1636 
54 08 CO 00087 4$: ADDL2 #2, J + 1620 
C8 11 OO008A BRB 2$ F 
52 D6 OOOBC 5S: INCL I + 1611 
B1 11 0008 BRB 1$ ; 
50 01 DO 00090 6$: MOVL #1, RO + 1643 
04 0009 RET ; 
50 04 00094 7$: CLRL = RO + 1645 
04 00096 RET ; 


essen” Regt 

; 1670 1646 1 

: 1671 1647 1 

: 167 1668 1 

: 167 1649 1! 
> 1674 1650 1: 
: 188 1682 i 
: 1879 1888 1 i 
> 1678 1654 1! 
> 1679 1655 1 i 
: 188s ieee 1 i 
; 168¢ 188% 1 i 
> 168 1659 1! 
> 1684 1660 1: 
: 1685 1661 1! 
> 1686 166 1 i 
> 1687 1663 1: 
> 1688 1664 1! 
> 1689 1665 1 | 
> 1690 1666 1: 
> 1691 1667 1: 
: 1698 1668 1! 
> 169 1669 1 | 
> 169% 1670 1 | 
> 1695 1671 1! 
> 1696 167 1! 
> 1697 1673 1 | 
> 1698 1674 1! 
> 1699 1675 1 | 
> 1700 1676 1 | 
: 1701 1677 1! 
: 1708 1678 1: 
: 170 1679 1 | 
> 1704 1680 1 
eH 3 
> 1707 168 

> 1708 1684 $ 

> 1709 1685 é 

> 1710 1686 
ae 1888 

: 1718 1689 

3 1714 1690 
me ig 

: 1717 1898 

: 1718 1694 

2 es? 
He 

7 17 : 1699 

: 1726 1 89 

> 1725 1701 

: 1726 1702 


5 
s"PREtSE® LOTWNEPSLog tor a message FECRSBcYRBE QUEEN? WAESTZnBAMensBlad4-Sa54% 


ZSBTTL_ “NCPSBLD_PROLOG Build Prolog for a Message’ 
ROUTINE NCPSBLD_PROLOG (PSDB, MSGPTR) :NOVALUE = 


2 
NCPVRBACT .B32; 


le¢ 
! FUNCTIONAL DESCRIPTION: 


Build the prolog for most NICE command messages. 
The components are: Possible system specific code, 
function code, option byte and entity. 


FORMAL PARAMETERS: 


PSDB Address of the SDB describing the command 
MSGPTR Address of the pointer to build the message 
IMPLICIT INPUTS: 
NCPSGL_FNC_CODE Function code byte 
NCP$GL_OPTION Option byte 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


BEGIN 


MAP 
PSDB : REF BBLOCK CSDBSC_SIZE] 


-MSGPTR = CHSPTR (NCPSGT_MSGBFR); ! Set the pointer to the buffer 


NCPSGL_ENTITY = .PSDB CSDBSB_ENT_TYP]; ! Copy entity type code. If | 
! negative, indicates system-specific 


i ae CSDBSB_ENT_TYP] LSS 0 ! Is this a system specific entity? 
BEGIN ! Build the system specific header 
CHSCOPY 

2 
UPLIT (BYTE (NMASC_FNC_SYS, ! Systen specific 
NMASC_SYS_0MS ! VAS system 


, 
0. 2, ..MSGPTR 
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YO0-000 NCPSBLD_PROLOG Build Prolog for a Message ae OF 2B ge INC. SRE NCPVRBACT.832;1 ° (28) 
: 1727 1703 ); 
; 3 § 1795 MSGPTR CHSPLUS £,.MSGPTR, 2) ! Upd i 
3 . = Pius f.. ¢ ! ate message nte 
: 1780 1706 END ‘ patent viatss 
: 1731 170 3 
: 17 ¢ 1708 
: 17 1709 ! 
: 4 r rly Write the function code and option byte to the message 
: 17 171 | 
3: 1737 1718 CHSWCHAR_A (.NCPSGL_FNC_CODE, .MSGPTR); 
: 17 g Wis CHSWCHAR-A (.NCPSGL_OPTION, .MSGPTR); | 
: Hoe at NCPSBLD_ENTITY (.PSDB, .MSGPTR); ! Build the entity next | 
: 1748 1718 RETURN | 
3 174 1719 
: 1744 1720 1 END; 


-PSECT S$PLITS,NOWRT,NOEXE,2 


Q00A3 -BLKB 1 
04 16 QOOAS P.AAL: .BYTE 22, 4 : 


-PSECT S$CODES,NOWRT,2 


0000 00000 NCPSBLD_PROLOG: 
«WORD Save nothing : 1647 | 
50 08 AC D0 00002 MOVL MSGPTR, RO > 1687) 
60 00000000" 00 4 00006 MOVAB NCPSGT_MSGBFR, (RO) : | 
00000000' 00 06 BC 9 9000 CVTBL @PSDB,~NCPSGL_ENTITY > 1689 
B 18 0001 BGEQ 3 169 | 
00 80 00000000" 00 80 0001 MOVW P,AAL, @0(RO) : 170 
60 3 & OO1F ADDL2 # ; 170 
00 80 000000006 0 90 2 1$: MOVB  NCPS$GL_FNC_CODE, a0(RO) : 171 
60 06 O002A INCL (RO) : 
50 08 aC 00 0002C MOVL MSGPTR, RO 3 1714 
00 80 000000006 00 90 00030 MOVB  § NCP$GL_OPTION, @0(RO) ; | 
60 06 0038 INCL — (RO) ; 
43 06 ac 7D 00054 MOVvO psd. -(SP) : 1716 
00000000v 0 02 FB 000 : CALLS #2, NCPSBLD_ENTITY ; | 
04 0004 RET ; 


; Routine Size: 70 bytes, Routine Base: SCODES + O83E 


dD 5 
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-000 LD_ENTITY Build Entity into Message 14-Sep-1984 12:48:34 NCP. SRCINCPVRBACT.B32; (26) 
74 ZSBTTL ‘NCPSBLD_ENTITY Build Entity into Message’ 
74 ROUTINE NCPSBLD_ENTITY (PSDB, MSGPTR) :NOVALUE = ! 


+ 
FUNCTIONAL DESCRIPTION: 


Build an entity description into a NICE message. 
n entity is a format type byte followed by a byte string. 
f the format type is negative only it is copied. > 
f the format type is zero, the following two bytes are copied. 
f the format type is positive, that number of bytes is copied. 
f the entity type is logging, | the format type byte is copied 
f it is positive since — that byte is used. : 
f the entity type is area then only one of byte is copied. 


FORMAL PARAMETERS: 


PUPS E™ £~ 


PSDB Address of an SDB 
MSGPTR Address of a character pointer to build message 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


SNS SSS SSS SSS 
DONOVUVLSWN OO OONOUEWN(O OONOUESWN—OOM 


COOWOON NNN SN NNO 
Se Sie i> ii > Bi iB i i te te te fe be fe Se ite Si Si lity Sy ty 


PAPA AAAI BB BB BB BB AAAI rornrerereornrnnrn Ur 


SODNA UNE WN "OO ODNAUE WIN OO ODNAUE WN SO OONOU Ewin $ 


ee ee ee ee ee ee ee ee ee el el el el el el el el cel ll el el el cel el el ll lh lt el el Dd et ts et tS SS 
ee ee ee ee ee a ee ed ed ad a ad ad ed od ed za, 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 BEGIN 


Be Be Be Be Oe Be SEs Oe Be Be Se Se Se Be Se Se Se Ge Se Ge Ge Ge GHGs Se Ge Se Ge Ge Se Ge Se Ge Ge Ge Se Se Ge Se Se Se Se Se Sse Se Se Se Se Ge Se Ge Se Seas seas 


NONE 
SIDE EFFECTS: 

NONE 
7 -- 
7 
786 761 
787 t6¢ P 
788 76 PSDB : REF BBLOCK CSDBSC_SIZE) 
789 764 H 
790 765 
791 766 LOCAL 
a4 76 ENTFMT, J 
79 768 SPTR ! Pointer to source 
794 769 3 : 
795 770 . 
796 771 SPTR = CHSPTR (.PSDB CSDBSL_ENT_ADR], 1); ! Make it a pointer to PDB 
ad ore ENTFMT = CHSRCHAR_A (SPTR); ! Read the entity 
4 ore CHSWCHAR_A (.ENTFMT, .MSGPTR); ! Copy the entity format 
801 ree IF .PSDB CSDBSB_ENT_TYP) ! If the entity is logging 
802 77 EQL 


00000000" 
04 


O3FC 00000 NCPSBLD_ENTITY: 
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yo4~000 NCPSBLD_ENTITY. Build Entity into Message eaeea sks Pbi2ai. | HMe Sa Pbes vagal t 03574 9° 28) 
: 1803 177 NMASC_ENT_LOG 
3 1802 1338 THEN ! Then only save the code byte 
; 1805 1780 RETURN 
: 1g09 1781 : 
: 180 17 ¢ 
; 1308 if ? IF F508 CSDB$B_ENT_TYP] ! If the entity type is area 
; 1810 178? NMASC_ENT_ARE 
: 1811 1786 : And the entity format is area 
: sig 1787 eENTFMT <0,8,1> EQL 0 ' number 
: 181 1788 THEN ! Then only save the area number 
> 1814 178? BEGIN 
3; 1815 1790 CHSMOVE (1, .SPTR, ..MSGPTR); ! Move the one byte of area 
; 1816 1791 -MSGPTR = CHSPLUS (..MSGPTR, 1); ! Adr and update the pointer 
3; 1817 1738 RETURN 
: 1818 179 END 
; 1819 1794 ; 
: 1820 1795 
; 1821 1796 IF .ENTFMT <0,8,1> EQL 0 ! If the entity format is a 
: 18s¢ 1797 THEN ! node adr 
3; 182 1798 BEGIN 
; \8se 1799 CHSMOVE (2, .SPTR, ..MSGPTR); ! Move the two bytes of node 
3; 1825 1800 <MSGPTR = CHS$PLUS (..MSGPTR, 2) ' Adr and update the pointer 
: 1826 1801 END 
: 1827 1306 
3: 1828 180 ELSE 
3 Hi 1804 IF .ENTFMT <0,8,1> GTR O ' If the entity format is a 
: 1830 1805 THEN ! string 
> 1831 1806 BEGIN 
; 1o3¢ 1807 ; CHSMOVE (.ENTFMT, .SPTR, ..MSGPTR); ! Copy the string 
, 1882 M43 ; -MSGPTR = CHSPLUS (. .MSGPTR, -ENTFMT); ! Update the pointer 
: 1835 1810 4 IF (.NCPSGL_LENTITY EQL NMASC_ENT_MOD) 
: 1836 1811 3 THEN 
3 1837 1812 4 BEGIN Paee 
3 4 Ha 2 a padi = NCPSMODULE_TYPE (.ENTFMT, .SPTR); ! discover what type of module it is 
3; 1840 1815 ; ELSE NCPSGL_MODTYP = 0; 
: 1841 1816 END 
; 1846 1817 2 : 
3; 184 1818 
3: 1844 1819 RETURN 
: 1845 1820 
> 1846 1821 1 END; 


aT) Save R2,R3,R4,R5,R6,R7,.RB,RO 
modtye; R9 


MOVAB NCPS$GL . ; 

MOVL. P : 1771 
ADDL3 #1, 1(R1), SPTR : 
MOVZBL (SPTR)+, ENTFMT : 1772 
OVL  MSGPTR, : 1774 
MOVE  ENTFMT. a@0(RO) : 


j 
| 


, 
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v04-000 NCPSBLD_ENTITY Build Entity into Message 1o-808-1 3c Ob Bi ga NCP.SRCINCP VRBACT -B32;1 . (26) | 
60 06 00010 INCL (RO) : | : 
02 61 + O01F CMPB (R1), #2 : 1777 : 
48 1 9 2 BEQL 4$ : ; 
05 1 91 000204 CMPB (R1), #5 + 1784. : 
F af 99 7 BNEQ 1$ : : 
7 95 00029 TSTB ENTFMT + 1787. : 
0B 12 00028 BNEQ § : : 
50 08 AC D 9 D MOVL MSGPTR, RO : 1790) : 
90 80 68 9 1 MOVB (SPTR), @0(RO) : : 
60 D6 000 3 INCL (RO) : 1791 | : 
04 00 RET : 1789 : 
57 99 8 1$ TSTB “Naa : 1796 : 
. ¥ A BNEQ $ 3 ‘ 
50 08 AC 00 0003C MOVL MS RO : 1799 : 
00 =«B0 68 BO 00040 MOVW CSP TRO: a0(RO) : : 
60 02 CO 00044 ADDL2 #2, (RO) : 1800 : 
04 00047 RET : ; 
22 15 00048 2$ BLEQ : 1804 : 
56 08 AC DO O004A MOVL. MSGPTR, R6 : 1807 : 
00 86 £8 57 28 90066 MOVC3 ENTFMT, (SPTR), a0(R6) : : 
6h 57 €O 0005 ADDL2 ENTFMT, ) : 1808 : 
04 FC 360A9 «D1 00056 CMPL NCPSGL “ENTITY, #6 + 1810 : 
a3 12 0005A BNEQ : : 
7E 7D 9003¢ MOva ZNTERT SP) : 1813 : 
00000000v 00 08 FB 0005F CALLS 2. NCPSMODULE TYPE ; : 
69 50 DO 00066 MOVL NCPS$GL_MODTYP : : 
04 00069 RET + 1810 : 
69 D4 0006A 38: CLRL NCPSGL_MODTYP + 1815 : 
04 0006C 4$: RET + 1821 : 


; Routine Size: 109 bytes, Routine Base: $CODE$ + 0884 


5 


5 | 
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YO0~ 00 NCPSMODULE_TYPE Return code for module type 1e-8ep-19 4 93:23:42 NCP SREINCEVABALT 83064 ° a 

: 1848 1 ; 1 ZSBTTL_ "NCPSMODULE_TYPE Return code for module type’ : 
: : 4 ! t ! ROUTINE NCPSMODULE_TYPE (LEN, PTR) = : 
; 188) 1825 1 !++ ‘ 
: 1826 is § 1 ! FUNCTIONAL DESCRIPTION: : 
> 185 1 1} A : 
; 132e i 3 : Compare module type string and return a code for it : 
: 1856 1830 1 ! FORMAL PARAMETERS: : 
; 1857 1831 1°! ; 
g 1338 1 ¢ ! PTR : Pointer to counted ASCII string of module entity name : 
; 1860 1834 1 =! IMPLICIT INPUTS: ; 
: 1861 1835 1! : 
3 1868 1836 1! NONE ; 
>; 186 Ieee 1! ; 
> 1864 1838 1 =! IMPLICIT OUTPUTS: : 
3: 1865 1839 1! ; 
> 1866 1840 1! NONE : 
3; 1867 1841 1! : 
> 1868 184g 1} ROUTINE VALUE: | ; 
3; 1869 184 1 ! COMPLETION CODES: ; 
; 1870 1844 1! ; 
; 1871 1845 1! Code for module entity or zero if no match. : 
3 1376 1846 1! : 
3; 187 1847 1 ! SIDE EFFECTS: ; 
> 1874 1848 1! : 
: 1875 1849 1°! NONE : 
3; 1876 1850 1! | : 
3 1877 1851 1 !-- : 
3; 1878 1336 1 ; 
: 1879 185 BEGIN ; 
; 1880 1854 BIND : 
3; 1881 1855 ENT_CNF_DSC = S$DESCRIPTOR (‘CONFIGURATOR’) : BBLOCK, ° 
; 1386 1856 § ENT_CNS_DSC = S$DESCRIPTOR (‘"CONSOLE') : CK, : 
; 188 1857 ENT-LOA-DSC = $DESCRIPTOR (‘LOADER’) : BBLOCK, ; 
; 1884 1858 § ENT_LOO_DSC = SDESCRIPTOR betehe secs : BBL ° : 
; 1885 1859 ENT_ACC_DSC = SDESCRIPTOR ('X25-ACCESS') : BBLOCK, $ 
; 1886 1860 ENT~PRO_DSC = $DESCRIPTOR ('X25-PROTOCOL') : BBLOCK, : 
: 1887 1861 ENT_SER_DSC = SDESCRIPTOR (°X25-SERVER') : BBLOCK, : 
; 1888 1006 ENT_TRC_DSC = SDESCRIPTOR ('X25-TRACE') : BBLOCK, : 
3; 1889 186 ENT_29S_DSC = SDESCRIPTOR ('X29-SERVER') : BBLOCK; : 
: 1890 1864 3 
s 199) 1865 ; 
: 1898 1866 IF CHSEQL (.LEN, .PTR, | ; 
3; 189 1867 ENT _CNF_OSC COSCSW_LENGTH], .ENT_CNF_DSC CDSCSA_POINTER]) : 
> 1894 1868 THEN ‘ 3 
3 1895 33 RETURN NCPS$C_ENT_MODCNF ! module Configurator : 
3 1998 1870 ; 
: 189 1871 3 
; 1898 1 % ELSE 3 
: 1899 187 IF CHSEQL (.LEN, .PTR, : 
; 1900 1874 -ENT_CNS_OSC COSC$W_LENGTH], .ENT_CNS_DSC CDSCSA_POINTER]) ; 
3; 1901 1875 THEN 3 
3 Hb 1378 RETURN NCPS$C_ENT_MODCNS ! module Console : 
3 1904 1878 3 
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your NCPSMODULE_TYPE Return code for module type 14S ats ri 93:23:42 ENCP. SRC NESVRBALT B3o04 - a 

1905 ELSE | 
IF CHSEQL (.LEN 


SEz5 


$ 1 

3 3 1 -PTR 
; | nae -ENf_LOA_BSC CDSCSW_LENGTH], .ENT_LOA_DSC CDSCSA_POINTER) | 
: 1292 : RETURN NCPSC_ENT_MODLOA !' module Loader 
3 1911 1 
: ar 1 ELSE 
3; 191 1 IF CHSEQL (.LEN, .PTR 
; 1914 1 -ENT_LOO_BSC CDSC$W_LENGTH], .ENT_LOO_DSC CDSCS$A_POINTER]) | 
. 128 1399 RETURN NCPS$C_ENT_MODLOO ' module Looper 
3 191 1891 
; 1918 1936 
: 1919 189 ELSE 
; 1920 1294 IF CHSEQL (.LEN, .PTR, 
3 iy 1 193? " ENT _ CC_DSC COSC$W_LENGTH], .ENT_ACC_DSC CDSCS$A_POINTER]) | 
5 
3; 19 : 1899 RETURN NCPSC_ENT_MODACC ! module X25-Access 
> 1924 1898 | 
3 1353 1899 
; 1926 1900 ELSE 

3; 1927 1901 IF CHSEQL (.LEN, .PTR, 
> 1928 1908 -ENT_PRO_DSC CDSC$W_LENGTH], .ENT_PRO_DSC CDSCS$A_POINTER)) | 
3 1363 190 THEN 

; 1930 1904 RETURN NCPS$C_ENT_MODPRO ! module X25-Protocol 
: 1931 1905 
3 1936 1906 
: 193 1907 ELSE 
: 1934 1908 IF CHSEQL (.LEN, .PTR, 

> 1935 1909 -ENT_SER_BSC CDSC$W_LENGTH], .ENT_SER_DSC CDSCSA_POINTER]) 
3: 1936 1910 § HEN 

: 1937 1911 RETURN NCPSC_ENT_MODSER ! module X25-Server 

: 1938 191¢ | 
3; 1939 191 
; 1940 1914 ELSE | 
3; 1941 1915 IF CHSEQL (.LEN, .PTR, 
; ak Hb a _— -ENT_TRC_OSC COSC$W_LENGTH], .ENT_TRC_DSC CDSCSA_POINTER)) | 
: 1944 1918 RETURN NCPSC_ENT_MCDTRC ' module X25-Trace 
> 1945 1919 | 
: 1946 1920 
TL HR §SSiuseo. copy er 
; H+ + § . -ENT_295_6S¢ COSCSW_LENGTH], .ENT_29S_DSC CDSCSA_POINTER]) 
: 1951 1995 RETURN NCP$C_ENT_MOD29S; ' module X29-Server 

3 1988 1997 RETURN FALSE; ' Not matched 

; 1954 1928 1 END; ' Routine NCPSMODULE_TYPE 


-PSECT $PLITS,NOWRT,NOEXE,2 
52 4F 54 41 52 55 47 49 46 SE 4F 43 QO0A6 P.AAN: .ASCII \CONFIGURATOR\ : 
00082 -BLKB 2 


NCPVRBACT 
vOu~000 


4C 4F 


FC A6 


53 


43 


52 


52 
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45 
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Return code for module type 14-Sep-1984 12:48:34 NCP. SRCINCPVRBACT.832; 
00900006 0B4 P.AAM: .LONG 12 
B8 .ADDRESS P.AAN 
45 4C 4F 53 GE 4F : P.AAP: ASCH \CONSOLE\ 
0000007 C4 P.AAO: .LONG 7 
itanttee Os .ADDRESS P.AAP 
$2 465 466 61 4F 4 6 CC P.AAR ASCII \LOADER\ 
90000006 Sone P.AAQ: .LONG 
00000000' 9008 .ADDRESS P.A 
52 45 SO 4F 4F 4C Oo¢ P.AAT “ASCII \LOOPER\ 
$0000000" $i Pea ONRESS P 
43 43 41 2D 35 $9 4 Ooe¢ P.AAV ASCII \K2ScACCESS\ 
0000000a it P.AAU: . LONG 0 
00990090" OOFC .ADDRESS P.AAV 
4F 52 50 2d 35 58 00100 P.AAX: . ASCII  \X25-PROTOCOL\ 
G8588085. $8185 PAM: ess 
52 45 53 2D 35 32 98 bolle P.AAZ: .ASCII \K2e- SERVER\ 
OO11E -BLKB 2 
QO00000A 00120 P.AAY: .LONG 10 
00990000" 00124 ADDRESS P.AAZ 
41 52 54 2D 35 32 58 00128 P.ABB: .ASCII \X25-TRACE\ 
00131 -BLKB 3 
00000009 00134 P.ABA: .LONG 9 
00990000" 00138 .ADDRESS P.ABB 
52 45 53 2D 39 58 0013C P.ABD: .ASCII \X29-SERVER\ 
00146 -BLKB 2 
QOO0000A 00148 P.ABC: .LONG 10 
00000000" 0014¢ .ADDRESS P.ABD 
ENT_CNF_DSC= P.AAM 
ENT-CNS_DSC= P. AAO 
ENT-LOA_DSC= P.AAQ 
ENT-LOO_DSC= P.AAS 
ENT-ACC_DSC= P. AAU 
ENT-PRO-DSC= P. AAW 
ENT-SER-DSC= P.AAY 
ENT-TRC_DSC= P.ABA 
ENT~29S_DSC= P.ABC 
-PSECT S$CODE$,NOWRT,2 
007C 00000 NCPSMODULE_TYPE: 
.WOR Save R2, R3,R4,R5,R6 
56 00000000" 00 9€ 0000 MOV ENT_CNF_DSC+4, R6 
5 04 AC 00 0000 MOVL LEN; ; RS” 
4 08 AC 00 00000 MOVL » RS 
50 $6 p oi MOVL ENT “CNF_DSC+4, RO 
64 ; D O14 CMPCS RS,~(R4T, #0, ENT_CNF_DSC, (RO) 
oe 12 00018 BNEQ 1$ 
50 1 dO 0001D MOVL #i, RO 
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50 10 
OC A6 00 64 


50 20 
1c AG 00 64 


50 30 
2c AG 00 64 


50 4h 
40 A6 00 64 


50 58 
54 AG 00 64 


50 6C 


50 0080 
7C = AG 00 64 


50 0094 
4 


50 


NCPSMODULE_TYPE Return code for module 


50 


; Routine Size: 175 bytes. Routine Base: $CODES + 08 


C009 098 SINISE OA AAA MMIII EE 
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gep718be $bizaig, =} Py 


3242 
NCP.SRCINCPVRBACT .B32; 


_CNS_DSC+#4, RO 
(R43, #0, ENT_CNS_DSC, (RO) 


_LOA_DSC+4, RO 
(R4T, #0, ENT_LOA_DSC, (RO) 


T_LOO_DSC+4, RO 
» (R4T, #0, ENT_LOO_DSC, (RO) 


T_ACC_DSC+4, RO 


»(R4Y, #0, ENT_ACC_DSC, (RO) 


T_PRO_DSC+4, RO 
»(R4T, #0, ENT_PRO_DSC, (RO) 


» RO 

T_SER_DSC+4, RO 

» (R&T, #0, ENT_SER_DSC, (RO) 
- RO 

T_TRC_DSC+4, RO 

» (R4Y, #0, ENT_TRC_DSC, (RO) 
- RO 


29S_DSC+4, RO 
(R4T, #0, ENT_29S_DSC, (RO) 


POS Se Se Se Be Se Se Be Se Ss Se Se Se Se Se Se Be Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Ge Se Se Ve Ge Se Se Ge Se Se Se Se Se Se Se Se Se 
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wreeneact tion Routines for Verbs 16-Sep-1984 93:33:97 ese Bliss-32 V4.0-742 
v04-000 PSBLD_PRMS Build Parameters into Message 14-Sep-1984 12:48:34 NCP.SRCINCPVRBACT .B32;1 
3 1338 1 1 ZSBTTL. “NCPSBLD_PRMS Build Parameters into Message’ 
; 1323 § ! ROUTINE NCPSBLD_PRMS (PLIST, MSGPTR, CHKFLG) :NOVALUE = ! 
; 1961 4 1 t+ 
; 1306 5 : } FUNCTIONAL DESCRIPTION: 
: 1964 2 1! Build a List of parameters into a NICE message. 
: 1965 s 3% The parameters are described by a List which gives the format 
: 1208 9 1! of the parameter, its two byte code and the address of the 
3 130! me : parameter data block containing the parameter data. 
; 1969 tg 1 ! FORMAL PARAMETERS: 
: 1970 45 1! 
; 1971 44 1! PLIST Address of the parameter descriptor List 
3 1 45 1! MSGPTR Address of the pointer to the next byte of the 
; 197 66 1 3 NICE message pene built. 
3 1974 47 1! CHKFLG True for enable check to require at least one 
; 1975 48 1! arameter or ALL 
3 Hb da | ro : alse for disable check and allow no parameters 
: 1978 51 1°! IMPLICIT INPUTS: 
: 1979 26 1! 
; 1980 a. af PDB$G_VRB_ALL The all parameter 
: 1981 54 1! 
3; 198 55 1 ! IMPLICIT OUTPUTS: 
3; 198 so | 3 
: 1984 ao a NONE 
; 1985 Be 
3; 1986 59 1 ! ROUTINE VALUE: 
: 1987 60 1 ! COMPLETION CODES: 
3; 1988 61 1! 3 
3; 1989 oe 1! Novalue, error signaled if no parameters saved 
: 1990 os F° 
: 1991 64 1 ! SIDE EFFECTS: 
3 136 Ss 23 
; 199 66 1! NONE 
3; 1994 67 1! 
3; 1995 68 1 !-- 
3; 1996 69 1 
3 1997 70 BEGIN 
3; 1998 71 
; 1999 Le: P : 
: 2000 7 PLIST : ! Pointer to a parameter control List 
: 2001 74 REF BBLOCKVECTOR (1, PCLSC_SIZE] 
3 B08 75 : 
; 200 76 
3; 2004 77 LOCAL 
: 2005 78 PCTR, ! Counter of parameters used 
s B08 ie PTR ' Local address pointer 
; 81 ; 
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008 
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Jon Routines fer Verbe 18-Sep-1984 01:55:49 -VAX=11 BLiss-32 v4.0-742 3 N( 
BLD PRMS Build Pare yeneen ike S3i28:92 | FAX age $3 


wePURpAct 
v04-000 SBLD_PRMS Build Parameters into Message P.SRCINCPVRBACT.B32;1 


2> 
ono 
UA 


ae 
; og 1984 PCTR = 0; ! No parameters used yet 

; O13 19 5 NCP$GW_PRMTYP = 0; 

: 5015 1987 INCRU IDX FROM 0 ! Scan the List | 
3 gig 1988 DO 

; 201 1989 BEGIN 

; 2018 1990 IF .PLIST C.IDX, PCL$B_PRM_TYP] ! Look for end of List 

; 2019 1991 Q 

; 2020 1336 PBK$K_END 

: 2021 199 THEN EXITLOOP ! We found it so quit 

: 20 ¢ 1994 : 

; 20 1995 ; 

3; 2024 1996 4 IF .(.PLIST C.IDX, PCL$L_PDB_ADR]) ! If the parameter is present 

3 os? 1997 3 THEN 

3; 2026 1998 4 BEGIN 

5 sosi 1999 4 

3; 2028 spoy 4! 

3 SH 001 4! Move the parameter id and update the message pointer 

: 2030 $008 4! 

3 soe 003 4 

3 ORs So 4 (..MSGPTR) <0, 16, 0> = ' Save it as a word 

> 203 005 4 PLIST C.1DX, PCL$W_PRM_1DI; 

: 2034 $039 4 .MSGPTR = ..MSGPTR + 2; ! Update the pointer 

: 2036 008 4 IF .PCTR EQL 0 ' Save first parameter code : 
3 2037 2009 4 THEN NCP$GW_PRMTYP = .PLIST C.IDX, PCL$W_PRM_IDJ; 

: 2038 010 4 

3; 2039 sols 4! 

: 2040 Big 4! Build an address to the data of the parameter 

: $003 oie ok 

; rk 2015 4 PTR = .PLIST C.IDX, PCLS$L_PDB_ADR] + 1; 


Mm 5 
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yO4~000 NCPSBLD_PRMS Build Parameters into Message 1a-8ep-19 4 Ee H NCP SREINCPVROACT 63244 . (38) 
: 2045 16 4 
BS Pom Git £01. weed we te w 
3 ! spatch for each type of parameter 
3; 2048 619 4! . - r 
3 2049 8 0 4 
; 2050 1 4 CASE .PLIST C.1DX, PCLS$B_PRM_TYP) 
; 91 0 : 4 FROM PBKS$K_LOW 
: 20 ¢ 023 4 TO PBKSK_HIGH 
; 205 024 4 OF ; 
: 2054 025 4 SET 3 
; 2055 0 § 4 ; 
: 828 0 4 CPBKS$K_NUMB) : ! Number byte . 
: 205 026 4 CHSWCHAR_A (..PTR, .MSGPTR) 3 
; 2058 029 4 : 3 
; 2059 030 4 ; 
; 2060 ba 4 CPBK$K_LITB) : ! Literal byte : 
; 2061 0 ; 4 : ! Do nothing for CLEAR/PURGE 
; $00¢ 033 4 ! We want only the ID 
3; 206 034 4 
; 2064 035 4 CPBK$K_NUMW] : ! Number word , 
: 2065 O36 5 EGIN : 
3; 2066 037 5 (..MSGPTR) <0, 16, 0> = ..PTR; ’ 
> 2067 038 5 .MSGPTR = ..MSGPTR + 2 : 
3: 2068 039 5 END : 
; 2069 040 4 3 ‘ 
: 2070 041 4 : 
; 2071 oe8 4 CPBKSK_NUML, PBKSK_LITL, PBKSK_SAD] : ! Number Long word ‘ 
$ sore spe 5 BEGIN . 
: soo 044 5 --MSGPTR = ..PTR; 
3 2074 2045 5 -MSGPTR = ..MSGPTR + 4 | 
; 2075 2046 5 END 
; 2076 2047 4 3 
3; 2077 2048 4 
; 2078 2049 4 CPBKSK_RNGL] : ! Range Lists 
3; 2079 $p20 4 ! ; 
3 $90 eh : Move the parameter id and update the message pointer 
; 208: 033 5 BEGIN 
: 208 054 5§ LOCAL 
: 2084 055 5 RNG_ELEMENTS : WORD; 
; 2085 $028 2 
: 2086 05 RNG_ELEMENTS = ..PTR; 
: 2087 058 5 PTR'= .PTR + 2; 
: 2088 059 é 
; 2089 060 INCR_INDX FROM 1 TO .RNG_ELEMENTS BY 2 DO 
> 2090 061 6 BEGIN | 
3 2091 O86 6 --MSGPTR = ..PTR; ' Copy the range pair 
; 2098 063 6 -MSGPTR = ..MSGPTR + 4; i Update the pointer | 
3; 209 064 6 PTR = .PTR + 4; 
; 094 065 6 LF lNOX LSS .RNG_ELEMENTS - 1 ! more to come 
; 036 O69 4 BEGIN ' store parameter id again 
; 209 068 7 (..MSGPTR) <0, 16, 0> = ' Save it as a wor 
; 098 06 7 PLIST C.f0X, PCL$W_PRM_IDJ; 
: 0 7 .MSGPTR = ..MSGPTR + 2; ! Update the pointer 
: $100 071 g END; 
3; 2101 072 END; 


ould pcrenteers into Message 1$-s8 30071382 9}: 28: 42 ENCP. Bantams tai 3004 maa 


NCPVRBACT 
Vv “B80 $BLD 
3 4 : 
ee END 
5 4 


ag 


6 | 
NCPVRBACT Action Routines for Verbs 18-5 1984 01:55:49 AX-11 Bliss-32 V4.0-742 P 6 
v04-000 NCPSBLD_PRMS Build Parameters into Message 1e-8ep= 188d $oitaske UNCP SREINGEVROALT B32;4 age ff 


! 
Any type of counted string 


CPBKSK_TKN, PBKSK_TKNQ, PBKSK_STRQ, PBKSK_HXPS, PBKSK_HEX, 
PBRSK_NIADR, PBKSK_PRVL, PBKSK_PRVC] 
IF CHSRCHAR(.PTR) GTRU 127 ' If plural form (ACTIVE, KNOWN), 
EN ! then Soy plural form byte 
CHSWCHAR_A (CHSRCHAR_A (PTR), .MSGPTR 
LSE ! else copy ascic string 


CHSMOVE (CHSRCHAR(.PTR)+1, .PTR, ..MSGPTR); 
<MSGPTR = ..MSGPTR + CHSRCHAR(.PTR) + 1; 
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som 
g 


3; 21 ¢ 91 «4 

: 21 38 4! 

3 21246 935 4! Node address or name 

; 2125 94 4! 

3; 21 $ 095 4 

3 ; $38 4 CPBKS$K_NADR] : 

: 2129 098 IF CHSRCHAR (.PTR) EQL 0 ' If its an address 

3; 2150 099 THEN ! Copy the address 

: 2131 100 6 BEGIN 

: 21 § 101 6 CHSMOVE (3, .PTR, ..MSGPTR); 

: 21 1 é 6 .MSGPTR = CHSPLUS (:.MSGPTR. 3) 

: 21 1 6 END : 

: 2135 104 5 ! Copy the name otherwise 
3: 21 105 6 BEGIN 

3; 2137 1s 6 IF CHSRCHAR (.PTR) GTRU 127 ! Is it a plural form? 

; 2138 107 6 ' Copy the piyrat byte code 
3; 2139 108 6 CHSWCHAR_A (CHSRCHAR_A (PTR), .MSGPTR) 

3; 2140 109 g ELSE ! Copy the string 

: 2161 2110 BEGIN 

: rs 111 7 CHSMOVE 

3: 214 \\§ 7 (.(.PTR) <0,8,0> + 1, 

> 2144 113 7 .PTR, ..MSGPTR) 

3; 2145 114 7 

3 2146 115 7 eMSGPTR = 

: 2147 s1i6 7 CHSPLUS 

: 2148 17 hCU (. .MSGPTR 

> 2149 2118 7 .(.PTR) <6,8,0> + 1) 

3; 2150 2119 7 END 

3: 2151 siso 6 END 

; 138 121 5 END 

3 219 $i5§ 4 ; 

: 2154 212 4 

3; 2155 2124 4&4 

: 2156 sis? 4 p 
; ar 4 $iso : CPBK$K_AADR) : ! Node area and address in a word 
: 2155 $136 5 (..MSGPTR) <0, 16, O0> = ..PTR; 

3; 2160 af 5 -MSGPTR = ..MSGPTR + 2 

3; 2161 2130 4 s 


=~ 


Page 58 
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v04-000 NCPSBLD_PRMS Build Parameters into Message 14-Sep-1984 12:48:34 NCP. SRCINCPVRBACT B32; 1 (33) | 
: 2163 131 4 
3 2164 1 ¢ 4! 
3; 2165 1 4! Object number or name 
> 2166 134 4 i 
3: 2167 135 4 | 
3; 2168 136 4 CPBKS$K_OBJ): 
3 2169 137 4 IF CHSRCHAR (.PTR) EQL 0 ' If its an address 
: 2170 2138 4 THEN ! Copy the number (byte) 
$ ae $128 5 BEGIN 
: 76 140 5 CHSMOVE (2, .PTR, ..MSGPTR); 
> 217 141 5 .MSGPTR = CHSPLUS (..MSGPTR. 2); 
3 2174 106 5 N 
3: 2175 143 4 ELSE ! Copy the name otherwise 
3; 2176 siee 5 BEGIN 
3 2177 145 5§ CHSMOVE (CHSRCHAR(.PTR)+1, .PTR, ..MSGPTR); 
; 3178 3146 ? .MSGPTR = ..MSGPTR + CHSRCHAR(.PTR) + 1; 
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v04-000 NCPSBLD_PRMS Build Parameters into Message 102805-1 386 12:48:34 INCP.SRC NCPVRBACT.B832;1 7 (34), 
: 2181 8 & 
: 188 189 ¢ i Entit d ID 
: ! ntity type an 
Sib, By gi 
; 2185 136 4! Byte of entity type code, followed by: 
: 2186 185 4! If node: word(address) OR ascic(name) 
: 2187 154 4! Any other: ascic (name) 
: 2188 185 4! 
: 2189 156 4 
; 2190 157 4 CPBKS$K_ENT): 
; 133 139 2 Peete A (CHSRCHAR_A (PTR) MSGPTR); ! C€ it d | 
3 . ; | Copy ent type code | 
: $196 160 § IF CHSRCRAR(.PTR=1) EQL NMASC_ENT.NOD ' i If node entity” | 
3 2194 161 2 OR CHSRCHAR (.PTR) EQL 0 '"and if its a node address 
: 2195 16¢ ' Copy the address 
: 2196 1635 6 BEGIN 
: 2197 2164 6 CHSMOVE (3, .PTR, ..MSGPTR); 
> 2198 2165 6 .MSGPTR = ..MSGPTR + 3; 
: 5199 2166 § END | 
; 2200 167 5 ! Copy the name otherwise 
; 3201 2168 6 BEGIN 
$ $08 2169 6 IF CHSRCHAR (.PTR) GTRU 127 ! Is it a plural form? 
: 220 2170 6 N ! Copy the plural byte code | 
: 2204 2171 6 CHSWCHAR_A (CHSRCHAR_A (PTR), .MSGPTR) 
; 2205 $176 6 E ! Copy the string | 
3; 2206 2173 7 BEGIN 
; 2207 2174 7 CHSMOVE (CHSRCHAR(.PTR)+1, .PTR, ..MSGPTR); 
: 2208 2175 7 -MSGPTR = ..MSGPTR + CHSRCHAR(.PTR) + 1; 
: 9309 5176 6 ; | 
: 2210 2177 5 END; 
3; 2211 2178 4 END; 
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Uil@ Perometers into Message 1380-198 M2892 ENG SRP UNEBvRGaCT o3es1 
Event type codes 


Event Parameter Format in PDB 


offset size data 

0 word event class 
bits 14,1 7 for wild event class and events 
bits 14, "15 = or wild events 

¢ byte size of next field 

8 bytes event type mask ne 

11 byte source type (-1 none, 0 node, 1 Line, 3 circuit) 

\¢ byte source code 

1 bytes source entity 


Event Parameter Format in Message 
size data 


byte Source type 

byte Source code 

bytes Source entity 

word Event class 

byte Size of event mask , 

bytes Event mask, not present if wild class or events 
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Build Event Code Into a Message 


rene ee’ TO PBKSK_ESEX, PBKSK_ESCIJ : 
! Write the source type 
CHSWCHAR_A (.(.PTR + 11), .MSGPTR); 
IF SF + 11) <0, 8, 1>! Look at the source type 
! If its present 


-1 

THEN 
BEGIN ' If the source type is node 
IF —— (.PTR + 11) 


0) 
AND ' If the node is an address 
(CHSRCHAR (.PTR + 12) 
EQL 
0) 
N 
BEGIN 
CHSMOVE ' Move the address 
(3, .PTR + 12, ..MSGPTR) 
MSGPTR = ! Update the message pointer too 
CHSPLUS 
(..MSGPTR, 3) 
END 
ELSE 
BEGIN ! If the source is a token 
CHSMO ' Move the token and its count 


VE i 
(.(. PTR + 12) <0 8 0> + é 
.PTR + 12, ..MSGPTRS 


“MSGPTR +f ! And update the message pointer 
(..MSGPTR, .(.PTR*+12) <0, 8, 0> + 1) 
END 


Write the Event class and Mask to the message last 


La <14, 2, 0> NEQ 0 ' Look at the wild bits 
BEGIN ! Something is wild, 
(..MSGPTR) <0, 16, 0> = ..PTR; ! copy class only 
.MSGPTR = ..MSGPTR + 2 


END 
ELSE 


CHSMOVE (11, .PTR, . 
»MSGPTR = CHSPLUS (. 


! Nothing wild, take all 
-MSGPTR); 
-MSGPTR, 11) 
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OFFC 00000 NCPSBLD_PRMS: | 
WORD Save R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 ; 1932 


NCPVRBACT Actio 16-Sep-1984 01:55:49 AX-11 Bliss-32 V4.0-74 Pa 73) 

00-000 NCPS$B 14S eats ri OF 2B te INCP. SRC NCPVRBACT.832; 9° 037) 
: 2307 71 4 | : 
; BS ie 4 CPBKSK_AREA]: ! Node area : 
: 2310 24 (..MSGPTR) <0, 16, 0>_= ..PTR; | ; 
; 2311 75 .MSGPTR = ..MSGPTR + 2 : 
3 \§ 6 END : 
3; 231 77 & $ 3 
: 14 a8 4 3 
3 2315 79 4 COUTRANGE , ! For anything strange : 
3 1g rs 4 PBK$K_END | $ 
3 1 1 4 K$ “TRIPL, ' These parameter sypes are for read only parameters which n ; 
3 18 Ht 4 BKSK_DELTIM, ! Formatting in NCPSHOLIS, but which don't need to be saved ; 
: 231 4 PBKSK-DAYTIM, ; 
; 9 84 4 PBKSK-LITLST, | : 
; § 8 4 PBKSK_MODPRM] : ! Used only for saving module names 3 
; 4 ! as parameters, not for building messages : 
H & 88 4 EXITLOOP; ; 
3 5 89 4 ; 
3 éo $ 90 4 TES 3 
3 $ 91 4 . 3 
; 8 92 4 PCTR = .PCTR + 1; ! Count one more parameter : 
3 $3 93 4 END ; 
3; 2350 94 4 3 
3 332 2? END; : 
: 97 ; 
; 334 $38 IF .CHKFLG AND ! check is enabled : : 
3 HH 99 (NOT .PDB$G_VRB_ALL) AND ' and ALL was not specified : 
; $3 + 4ner -NCPS$GC_NOPARMS) ! and it should have parameters : 
: 2338 30¢ IF ((.NCPSGL_QUALPRS EQL 0) AND ' If there are no qualifiers ; 
; He4 $2 arc EGL 0)) ! and no parameters : 
> 2341 305 ((.NCPSGL_QUALPRS NEQ 0) AND ! If there is a qualifier : 
3 tak) $09 (.PCTR LEQ 1)) ' and only the qualifier parameter : 
; 2344 id THEN SIGNAL_STOP (NCP$_NOPARM) ; ! Signal an error : 
: 3346 $10 RETURN ; 
: 2347 11 F 
3: 2348 312 1 END; ; 
58 00000000" 90 9 000 MOVAB NCPS$GW_PRMTYP, R11 ; F 
A 04 000 CLRL PCTR : 1984 ; 
B 04 Bane CLRL NCPS$GW_PRMTYP ; 1985 : 
§ D4 B20 CLRL ; 1990 3 
re ere et Sa ae : : 
17 $1 0017 CMPB PAS ge : 1991 ; 
OO1A BEQL 5$ 3 : 
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NCPVRBACT 4 01:55:49 AX-11 Bliss-32 V4.0-74 Pa 77 
vO0~000 NCPSBLD_PRMS Build Parameters into Message 14-Sep-1984 93:28:40 NCP.SRCINCPVRBACT .B32; 9° (38) 
3 0 13° 1 END ‘End of modul 
: $32 S312} Ebon este 
| 
~EXTRN LIBSSIGNAL, LIBSSTOP 
: $GLOBALS 1036 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS HY NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 2895 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: eecwoeece Symbols wooeccecen Pages Processing 
: File Total Loaded Percent Mapped Time 
: ~$25550UA 8: CSYSLIBISTARLET.L32;1 977 8 0 581 00:01..0 
> 7$255$DUA28:(NCP.OBJINCPLIBRY.L$2;1 37 72 19 58 00:00. 
: 2$255$DUA28:CNCP.OBJ JNMALIBRY.L32;1 887 26 2 4 00:00.8 


COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NCPVRBACT/OBJ=OBJ$:NCPVRBACT MSRC$:NCPVRBACT/UPDATE=(ENHS$:NCPVRBACT) 
2895 coge + 1376 data bytes 

; 39:2 . 

; Elapsed Time: 02:44.2 

; $008 

; Lexenes/CPU-Rin; 12198 


0 pages 


PSECT SUMMARY 
Name Bytes Attributes 
: spent Reon Complete 
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